Borrar celdas vacias, actualizando un form de excel
Tengo un libor de excel con 3 hojas principales, una es como la base de datos (en donde estoy concentrando los datos que previamente lleno con un form), los cuales necesito que me mande a la segunda hoja..
pero necesito que solo copie los datos que tengan valores en dos de las columnas que lleno y las columnas que solo tengan un dato las borre.. Prodrian ayudarme xfavor!!
1 respuesta
Respuesta de Dante Amor
1
Esta sería la macro completa para cargar los datos en los combos
Private Sub UserForm_Activate()
'Por.DAM
Set h1 = Sheets("RES DT")
'Carga procesos
For i = 2 To 37
If h1.Cells(4, i) <> "" Then
ComboBox1.AddItem h1.Cells(4, i)
End If
Next
'Carga horarios
For i = 7 To 150
If h1.Cells(i, "A") <> "" Then
ComboBox2.AddItem Format(h1.Cells(i, "A"), "hh:mm")
End If
Next
End Sub
Private Sub ComboBox1_Change()
'Por.DAM
ComboBox3 = ""
Set b = h1.Range("A153:AK172").Find(ComboBox1, LookAt:=xlPart)
If Not b Is Nothing Then
For i = 154 To 172
If h1.Cells(i, b.Column + 4) <> "" Then
ComboBox3.AddItem h1.Cells(i, b.Column + 4)
End If
Next
End If
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
