Buscar la primera celda vacía de izquierda a derecha e insertar
Cerrado
andresko
Mensajes enviados
8
Fecha de inscripción
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 Mensajes enviados 8 Fecha de inscripción 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 Mensajes enviados 8 Fecha de inscripción lunes, 15 de febrero de 2016 Estatus Miembro Última intervención viernes, 19 de febrero de 2016 - 16 feb 2016 a las 19:18
Consulta también:
- Buscar la primera celda vacía de izquierda a derecha e insertar
- Buscar fuente por imagen dafont - Guide
- Buscar numero de celular por dni - Foro Móviles/PDA/GPS
- Buscar número de celular claro por nombre y apellido - Foro Móviles/PDA/GPS
- Hi5 buscar perfiles ✓ - Foro Móviles/PDA/GPS
- Fórmula para copiar datos de una celda a otra en excel automáticamente - Guide
1 respuesta
andresko
Mensajes enviados
8
Fecha de inscripción
lunes, 15 de febrero de 2016
Estatus
Miembro
Última intervención
viernes, 19 de febrero de 2016
16 feb 2016 a las 19:18
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
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