James Bond

Prueba con esta macro Sub copia() Set hp = Worksheets("pedidos") nombre = hp.Range("k3") atras: On Error Resume Next Sheets(nombre).Select If Err.Number > 0 Then Sheets.Add: ActiveSheet.Name = nombre GoTo atras End If Set hd =...

Primero corre una columna tus datos para que queden así, luego copia la macro abajo de esta imagen Sub buscar_fechas() Set fechas = Range("a4").CurrentRegion Set parametros = Range("d3").CurrentRegion With fechas Set fechas =...

Ya te envíe la solución por email te menciones que eso pasa cuando la búsqueda no encuentra ningún dato que coincida y te di la solución que es la siguiente On Error Resume Next celda = busca.Address If Err.Number > 0 Then MsgBox ("NUMERO " & NUMEROS...

Prueba con esta fórmula =+SI(B5="helados","hela",SI(B5="hamburguesa","burger",SI(B5="patatas","pat",0)))

De entrada es más fácil que el modulo este dentro del código, necesitas añadir un botón de comando y luego insertar este código el cual buscara todos los checkbox que estén marcados y aquí tienes dos opciones o insertas tu macro en lugar del msgbox o...

Prueba con esta macro, solo cambia el a1 por la celda donde comiencen tus datos. Sub copiar_repetidos() Set datos = Range("a1").CurrentRegion Set h2 = Worksheets("hoja2") h2.UsedRange.Clear With datos Set datos = .Rows(2).Resize(.Rows.Count - 1,...

Suponendo que tus datos están en la celda A1, corres la siguiente macro Sub REPARTE() Set DATOS = Range("A1").CurrentRegion With DATOS For I = 1 To .Rows.Count VECES = WorksheetFunction.Quotient(.Cells(I, 1), 125) RESTO = .Cells(I, 1) Mod 125...

Intenta pegando este código en el modulo thisworkbook Private Sub Workbook_Open() application.visible=false UserForm1.Show End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) application.visible=true End Sub

Esta macro convierte un rango de datos a tabla, cambia el nombre ejemplo por como quieras que se llame y en el range("b3") pon la celda donde empiezan tus datos, la macro se adapta a tus registros si tienes 100 o 1000 o 1 millón la macro lo tomara en...

Ponlos en dos condiciones if separadas una para el listbox y otra para el textbox si una de las dos condiciones se cumple el código te sacara del programa sin capturar nada y te enviara directo al que este vacío If esc_upc = Empty Then MsgBox...