Rango en Hoja de calculo
Luis te pregunto que si quisiera cambiar el rango desde donde empieza a colocar el dato, como seria, gracias.
¿Qué rango?...
Por ejemplo desde c7 hacia abajo y como defino la hoja : Hoja1 o hoja2 o la hoja3
Gracias
Cambiar la referencia de range segun tu ejemplo anterior para que sea c
Dim fila As Long
fila = Application.WorksheetFunction.CountA(Range("c6:c65536")) + 1
Range("c" & fila).Value = textbox1
textbox1 = ""
textbox1 = SetFocus
Huy que pena contigo, pero no me funciona, dándole este rango en el código, Se ubica en la primera fila, en la c1 ,y no toma mas datos hacia abajo, solo lee en la misma celda c1,.
Le cambio el rango por b10:b5000 y pasa lo mismo, , Aprovecho para preguntarte con hago para activar este código en otra hoja, saludos
Ups deberás que es desde la linea 7
Dim fila As Long
fila = Application.WorksheetFunction.CountA(Range("c6:c65536")) + 7
Range("c" & fila).Value = textbox1
textbox1 = ""
textbox1 = SetFocus
Para ponerlo en otra hoja solo cambias el indice para la instrucción sheets(1) en donde 1 es la hoja1
sheets(2) es la hoja2
entonces seria:
Dim fila As Long
fila = Application.WorksheetFunction.CountA(Sheets(2).Range("c6:c65536")) + 7
Sheets(2).Range("c" & fila).Value = textbox1
Para hoja2
