Visual Basic para Aplicaciones - Poner datos al final de la celda

Life is soft - evento anual de software empresarial
   
Vista:

Poner datos al final de la celda

Publicado por Bekyna (44 intervenciones) el 09/01/2009 19:12:55
Estoy haciendo una macro para Excel en donde tomo determinados datos del archivo “A” y los pongo en el archivo “B”, el detalle es que no se como hacerle para ponerlos siempre al final de la columna, ósea en la celda siguiente.
Nota: los datos deben ser consecutivos

Gracias por sus sugerencias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Poner datos al final de la celda

Publicado por Albert (108 intervenciones) el 09/01/2009 19:25:38
Deberias primero saber donde esta el final (la ultima escrita) y luego poner la siguiente, te dejo este codigo para que lo adaptes a tus necesidades

Dim i As Integer
Dim final As Integer

For i = 1 To 10000
If datos.Cells(i, 1) = "" Then 'busca el primer blanco en la col A
final = i - 1
Exit For
End If
Next

For i = 1 To final
if 'resto codigo

asignale "i" a la posicion de la fila ... ejemplo

If (ComboBox5) = datos.Cells(i, 1) Then
TextBox65 = datos.Cells(i, 2)
aqui si combobox5 es igual a alguna fila de la columna A, pone en el textbox65 lo que este en la misma fila de la columna B

Espero haberte sido util.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:Poner datos al final de la celda

Publicado por JuanC (431 intervenciones) el 09/01/2009 19:56:02
Dim rng As Range
Set rng = Range("B" & Cells.Rows.Count).End(xlUp).Offset(1)
If rng.Row = 2 And IsEmpty(rng.Offset(-1)) Then Set rng = rng.Offset(-1)
rng.Value = "Hi Bekyna!"
Set rng = Nothing

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar