Macro Insertar Datos en Hoja filtrada sin Desfiltrar
Dante:
La primera pregunta, que no se por qué no la tomó la página, es la siguiente:
La Hoja REMISIÓN alimenta o pasa los datos a la Hoja CARGUE!. Cuando se filtran datos en Hoja CARGUE!, es necesario seguir entrando datos en la Hoja REMISIÓN, pero como la hoja CARGUE esta con filtros y cuando se desfiltra entonces no toma los datos nuevos ingresados.
Por favor, ¿Cómo hacer para que cuando se desfiltre o se quite el filtro en CARGUE aparezcan los datos nuevos que se entraron mientras estaba filtrada?
Anexo ejemplo en el correo enviado
1 Respuesta
¡Gracias!
H o l a:
Te anexo la macro actualizada
Sub pase_Cargue()
'Act.Por.Dante Amor
Set h3 = Sheets("CARGUE")
h3.Unprotect "1"
'nlin = h3.Range("A" & Rows.Count).End(xlUp).Row + 1
'If UCase(Left(h3.Range("B" & nlin), 5)) = "TOTAL" Then
' h3.Rows(nlin).Insert
'End If
'se pasan datos de la factura a la fila libre
u = h3. UsedRange. Rows(h3. UsedRange. Rows. Count). Row
For i = 7 To Rows.Count
If InStr(1, h3.Cells(i, "B"), "TOT") Then
nlin = i
h3.Rows(nlin).Insert
Exit For
End If
Next
h3.Cells(nlin, 1) = Range("E10")
h3.Cells(nlin, 2) = Range("AA3")
h3.Cells(nlin, 3) = Range("AA5")
h3.Cells(nlin, 4) = Range("E9")
h3.Cells(nlin, 5) = Range("A13")
h3.Cells(nlin, 6) = Range("A15")
h3.Cells(nlin, 7) = Range("A17")
h3.Cells(nlin, 8) = Range("A19")
h3.Cells(nlin, 9) = Range("A21")
h3.Cells(nlin, 10) = Range("J13")
M = Range("J15") + Range("J17") + Range("J19") + Range("J21")
h3.Cells(nlin, 11) = M
N = Range("V13") + Range("V15") + Range("V17") + Range("V19")
h3.Cells(nlin, 12) = N
h3.Cells(nlin, 13) = Range("AD21")
h3.Cells(nlin, 14) = Range("H25")
If h3.Range("N" & nlin).Value = "Cuenta Corriente" Then
h3.Cells(nlin, 15) = Range("AC25")
ElseIf h3.Range("N" & nlin).Value = "Contado" Then
h3.Cells(nlin, 16) = Range("AC25")
ElseIf h3.Range("N" & nlin).Value = "Contra Entrega en:" Then
h3.Cells(nlin, 17) = Range("AC25")
End If
h3.Protect "1"
End Sub':) ':)
Hola Dam, funciona perfectamente!!... solo, permíteme por favor, un detalle que tal vez no supe explicarme bien y no se si es posible hacerse... te explico en el archivo adjuto (En la hoja CARGUE.
Quedaría de esta forma:
Sub pase_Cargue()
'Act.Por.Dante Amor
Set h3 = Sheets("CARGUE")
h3.Unprotect "1"
'nlin = h3.Range("A" & Rows.Count).End(xlUp).Row + 1
'If UCase(Left(h3.Range("B" & nlin), 5)) = "TOTAL" Then
' h3.Rows(nlin).Insert
'End If
'se pasan datos de la factura a la fila libre
u = h3. UsedRange. Rows(h3. UsedRange. Rows. Count). Row
For i = 7 To Rows.Count
If InStr(1, h3.Cells(i, "B"), "TOT") Then
nlin = i
h3.Rows(nlin).Insert
Exit For
End If
Next
h3.Cells(nlin, 1) = Range("E10")
h3.Cells(nlin, 2) = Range("AA3")
h3.Cells(nlin, 3) = Range("AA5")
h3.Cells(nlin, 4) = Range("E9")
h3.Cells(nlin, 5) = Range("A13")
h3.Cells(nlin, 6) = Range("A15")
h3.Cells(nlin, 7) = Range("A17")
h3.Cells(nlin, 8) = Range("A19")
h3.Cells(nlin, 9) = Range("A21")
h3.Cells(nlin, 10) = Range("J13")
M = Range("J15") + Range("J17") + Range("J19") + Range("J21")
h3.Cells(nlin, 11) = M
N = Range("V13") + Range("V15") + Range("V17") + Range("V19")
h3.Cells(nlin, 12) = N
h3.Cells(nlin, 13) = Range("AD21")
h3.Cells(nlin, 14) = Range("H25")
If h3.Range("N" & nlin).Value = "Cuenta Corriente" Then
h3.Cells(nlin, 15) = Range("AC25")
ElseIf h3.Range("N" & nlin).Value = "Contado" Then
h3.Cells(nlin, 16) = Range("AC25")
ElseIf h3.Range("N" & nlin).Value = "Contra Entrega en:" Then
h3.Cells(nlin, 17) = Range("AC25")
End If
If h3.AutoFilterMode Then
h3.Rows(nlin).Hidden = True
End If
h3.Protect "1"
End Sub':) ':)
