jerryeagle

Dim ws As WorkSheet For Each ws in Worksheets 'Aquí pon tu otra macro Next

Pues para Asignar un Valor a la Celda de la Siguiente Fila Vacía seria así, por ejemplo: Range("X" & Rows.Count).End(xlUp).Offset(1, 0).Value = "Un Valor" Solo Adáptalo a tu Caso

Tendrías que ser más especifico en que es lo que quieres, y si quieres toda una aplicación en Excel/VBA o en VB net, hay que especificar

En ningún momento asignas el Valor a Ventas, si no lo asignas, el valor por default es "cero"

Dim nombre As String Dim largo As Integer Dim x As Integer Dim y As String Dim letra_sig As String Dim INICIALES As String 'Suponiendo que los datos comienzan en la fila 2 For c = 2 To Cells(Rows.Count, "e").End(xlUp).Row nombre = Cells(c, "e").Value...

Pues una de dos, o la conviertes en Función o haces un Bucle Repetitivo: Pero cambie tu código por uno más corto :P Como Función Public Function Iniciales(ByVal Nombre As String) As String Dim Nombres() As String, Res(6) As String Nombres =...

Claro que se puede hacer, en mi trabajo lo he hecho muchas veces, también ya ayude a alguien con un caso similar, pero claro que al tener que hacerlo todo el código debe tener un costo, así como fue con la persona que menciono, puedo ayudarte,...

Solo con macros, ¿tienes alguna experiencia con esto?

Usa bucle For Next o Do While o Do Until Por ejm For r = 12 to 60 Range("A" & r).Value = "Algo : " & r Next

ListBox. ListCount Esa instrucción cuenta las filas del ListBox