Buscar la primera celda vacía de izquierda a derecha e insertar

Cerrado
andresko
Message postés
8
Date d'inscription
lunes, 15 de febrero de 2016
Estatus
Miembro
Última intervención
viernes, 19 de febrero de 2016
- 16 feb 2016 a las 19:18
andresko
Message postés
8
Date d'inscription
lunes, 15 de febrero de 2016
Estatus
Miembro
Última intervención
viernes, 19 de febrero de 2016
- 16 feb 2016 a las 19:18
Hola, necesito hacer que un IF en una macro que valide datos y al hacerlo busque la primera celda vacía que encuentre de izquierda a derecha de una fila para ingresar los datos. El código es el siguiente, por favor necesito ayuda, desde ya gracias.

1 respuesta

andresko
Message postés
8
Date d'inscription
lunes, 15 de febrero de 2016
Estatus
Miembro
Última intervención
viernes, 19 de febrero de 2016

16 feb 2016 a las 19:18
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$1" Then
For b = 2 To 100
Cells(3, b) = " "
Cells(4, b) = " "
Cells(5, b) = " "
Cells(6, b) = " "
Cells(7, b) = " "
Next b
a = 11
Dim ultimacolumna3 As Long
Dim ultimacolumna4 As Long
Dim ultimacolumna5 As Long
Dim ultimacolumna6 As Long
Dim ultimacolumna7 As Long
For i = 1 To 12
If Cells(12, a + (i * 4)) = Cells(1, 2) Then
ultimacolumna3 = Range("B3").End(xlToRight).Column
ultimacolumna3 = ultimacolumna3 + i
ultimacolumna4 = Range("B4").End(xlToRight).Column
ultimacolumna4 = ultimacolumna4 + i
ultimacolumna5 = Range("B5").End(xlToRight).Column
ultimacolumna5 = ultimacolumna5 + i
ultimacolumna6 = Range("B6").End(xlToRight).Column
ultimacolumna6 = ultimacolumna6 + i
ultimacolumna7 = Range("B7").End(xlToRight).Column
ultimacolumna7 = ultimacolumna7 + i
Cells(3, ultimacolumna) = Cells(12, 1)
Cells(4, celdavacia) = Cells(12, 6)
Cells(5, celdavacia) = Mid(Cells(10, a + (i * 4)), 11, 2)
Cells(6, celdavacia) = Cells(12, 10)
Cells(7, celdavacia) = Cells(12, a + (i * 6))
Else
End If
Next i
End If
End Sub
0