¿Cómo pegar datos de un grupo de celdas filtradas a otra hoja en excel?
Realice un filtro en un grupo de celdas pero necesito pegarlas en otra hoja.
Solo que tengo un pequeño problemita, esta hoja la estoy llenado con un form de bva osea que necesito que el copiado lo haga automático...
Agradecería mucho si me pudieran ayudar!
1 respuesta
Respuesta de Dante Amor
1
Para entender lo que necesitas seleccionar, copiar y pegar en otra hoja, me puedes enviar tu archivo con un ejemplo de cómo haces el filtro y en la otra hoja me pones lo que quieres pegar.
Mi correo [email protected]
Escribe en el asunto tu nombre y el título de la pregunta.
Saludos. Dante Amor
Con esto que te envié puedes encontrar el lugar para almacenar la falla
Private Sub CommandButton1_Click()
'Por.DAM
If ComboBox1 = "" Then cad = "Falta Proceso. "
If ComboBox2 = "" Then cad = cad & "Falta Horario. "
If ComboBox3 = "" Then cad = cad & "Falta Causa. "
If TextBox1 = "" Then cad = cad & "Falta Cantidad. "
If cad <> "" Then
MsgBox cad
ComboBox1.SetFocus
Exit Sub
End If
'Busca proceso
Set b = h1.Rows(4).Find(ComboBox1)
If Not b Is Nothing Then
c = b.Column + 4
'busca horario
If Left(ComboBox2, 1) = "0" Then
hora = Mid(ComboBox2, 2)
Else
hora = ComboBox2
End If
Set h = h1.Range("A:B").Find(hora, LookAt:=xlWhole)
If Not h Is Nothing Then
f = h.Row
'busca celda disponible
For i = 0 To 5
If h1.Cells(f + i, c) = "" Then
h1.Cells(f + i, c) = ComboBox3
h1.Cells(f + i, c + 1) = Val(TextBox1)
celda = True
Exit For
End If
Next
If celda = False Then
MsgBox "No hay celda disponible ", vbExclamation, "Proceso: " & ComboBox1 & ". Hora: " & ComboBox2
Else
MsgBox "Falla guardada con éxito ", vbInformation, "Proceso: " & ComboBox1 & ". Hora: " & ComboBox2
End If
End If
End If
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
