Dante Amor

Esta puede ser una opción Range("a3").FormulaLocal = "=SUBTOTALES(103,$F$3:F3)" Range("b3").FormulaLocal = "=SI(ColorFondoIgual(E3,204,255,255),""X"",)" Range("c3").FormulaLocal = "=SI(H3=0,0,SI(I3-I2=1,""OK"",""FA""))" Range("a3:c3").AutoFill...

Te anexo la macro Sub SeparaCombustible() 'Por.Dante Amor Set h1 = Sheets("Resumen") For i = 1 To h1.Range("D" & Rows.Count).End(xlUp).Row Select Case LCase(h1.Cells(i, "D")) Case "magna": Set h2 = Sheets("magna") Case "premiun": Set h2 =...

Envíame un correo nuevo, en el asunto pon tu nombre de usuario. sal u dos

H o la: Envíame tu archivo para ver cómo tienes los hipervínculos y la selección del listbox. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Sergio Jesus Sanjurjo” y el título de esta pregunta.

H o la: Te anexo las macros para el userform Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Por.Dante Amor KeyAscii = 0 End Sub ' Private Sub CommandButton1_Click() 'Por.Dante Amor If ComboBox1 = "" Then MsgBox "Selecciona...

Quedaría así: Private Sub CommandButton11_Click() 'Act.Por.Dante Amor 'mostrar hojas For Each h In Sheets If LCase(h.Name) <> "indice" Then h.Visible = True End If Next Hoja6.Columns("A:Q").Clear fin = Hoja5.Range("b65536").End(xlUp).Row fila = 2...

Y si, por ejemplo, en la hoja1 hay 3 existentes, en la hoja2 hay 4 existentes. Qué quieres hacer con los 7 resultados encontrados. Actualmente la macro pone un mensaje, selecciona la hoja, selecciona la celda. Quieres que vaya seleccionando celda por...

H o l a: Para la tecla ESC realiza los siguientes pasos: Pon la siguiente macro en los eventos de ThisWorkbook, de esta forma cada que abras el libro la tecla Esc quedará asignada para llevarte a la hoja "indice" Private Sub Workbook_Open()...

H o l a: Te anexo la macro Sub GuardarHojas() 'Por.Dante Amor Set hoja = Sheets("Hoja1") 'hoja a guardar como pdf Set celda = hoja.Range("C2") 'Celda con la lista de validación Set rango = Sheets("Hoja2").Range("B2:B6") 'hoja y rango donde están los...

Te anexo las indicaciones para que la macro funcione automáticamente cuando cambias la celda B1 Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub...