víctor ibarz

Prueba así a ver si te sirve: Dim h As Worksheet Set h = Hoja1 a = Range("E" & Rows.Count).End(xlUp).Row If a < 3 Then Exit Sub For B = 3 To a If Cells(B, 6) = Cells(B + 1, 5) Then ElseIf Cells(B, 6) > Cells(B + 1, 5) Then 'superpuesto vi = Cells(B,...

Puedes hacerlo así: Dim h As Worksheet Set h = Hoja1 a = Range("E" & Rows.Count).End(xlUp).Row If a < 3 Then Exit Sub For B = 3 To a If Cells(B, 6) = Cells(B + 1, 5) Then Else h.Cells(B, 5).EntireRow.Insert B = B + 1 End If Next Cambia donde dice...

Esto te puede servir: Public ultima As Integer Sub separarl() Dim hresumen As Worksheet Dim hmagna As Worksheet Dim hpremium As Worksheet Dim hdiesel As Worksheet Dim cass As Worksheet Set hresumen = Sheets("Resumen") Set hmagna = Sheets("Magna") Set...

Con fórmula matricial puede ser así: =MAX(SI(D4:D9=C12;SI(C4:C9=C11;G4:G9;"");"")) De este modo te busca el máximo que cumpla las dos condiciones, incluso si tienes varias combinaciones de jose/squat, el buscarv te devuelve la primera coincidencia...

Sería algo así: Sub CrearCarpeta() ruta = "C:\OUT\" NumOut = Range("A2") DescripcionOut = Range("A3") Carpeta = "OUT_" & NumOut & "-" & Format(Date, "yyyy_mm_dd") & "-" & DescripcionOut If Len(Dir(ruta & Carpeta, vbDirectory)) = 0 Then ruta = ruta &...

Puedes jugar con el evento "SelectionChange", algo así:

Este complemento me ha salvado la vida en repetidas ocasiones y realiza lo que solicitas, es fácil de utilizar y gratuito:

Para esconder todas las hojas excepto la que indicas lo puedes hacer así: Dim h As Worksheet For Each h In Worksheets If h.Name <> "Inicio" Then h.Visible = False End If Next Como ves se juega con la propiedad ".visible" En el código de cada botón...

Casi lo tenías. Sub PINTARfilasAMARILLO() Range("AC6").Select While ActiveCell <> "" If ActiveCell = "VACIO" Then Rows(ActiveCell.Row).Select With Selection.Interior .Color = 65535 End With ActiveCell.Offset(0, 28).Select End If ActiveCell.Offset(1,...

Quizá debas utilizar como origen de datos del combo no la tabla sino una consulta en la que no tengas los duplicados.