víctor ibarz

Algo así debería funcionar: If Worksheets("Hoja12").Range("A2").Value = "" Then Worksheets("Hoja11"). UsedRange. Copy Worksheets("Hoja12"). Range("A1"). PasteSpecial xlPasteAll Else p = Worksheets("Hoja12").Range("A100000").End(xlUp).Row + 1...

Sería algo así: 'debes tener el rango que quieres copiar seleccionado p = InputBox("A partir de qué fila quieres pegar?") Selection. Copy Worksheets("Hoja10").Range("A" & p). PasteSpecial xlPasteAll Debes tener el código en un módulo, lo que hace es...

Sería algo así: Dim mRange As Range Dim cell As Range Set mRange = Worksheets("Hoja7").Range("A1:C10") Dato = Application.WorksheetFunction.Min(mRange) For Each cell In mRange If cell.Value = Dato Then cell.Interior.Color = RGB(255, 0, 0) cell.Select...

Algo así: a = 2 b = 2 Do While Range("a" & a).Value <> "" c = Range("c" & a).Value cod = Range("a" & a).Value pro = Range("b" & a).Value For d = 1 To c Range("e" & b).Value = cod Range("f" & b).Value = pro b = b + 1 Next a = a + 1 Loop

Apuesto a que te pasa solamente para las fechas en las que el día es menor que doce, ¿verdad? Utiliza esto: vfecha = Format(Date, "dd/mm/yyyy") if day(vfecha)<13 then vfecha=format(vfecha,"mm/dd/yyyy") Siendo vfecha la variable a utilizar en las sql...

Aparentemente te faltan un montón de "END IF", cada "IF" que abres debe cerrarse con su "END IF"