Dante Amor

Revisa la siguiente respuesta Cómo hacer Combobox dependientes en un formulario?

Puedes pegar aquí la fórmula. Es difícil tomarla de la imagen. También podrías poner algunos ejemplos de lo que tienes y el resultado que arroja la fórmula.

Prueba lo siguiente: Sub Buscar_Dato() Dim f As Range, res As Variant, sh As Worksheet ' If UCase(ActiveSheet.Name) <> "CLIENTES" Then MsgBox "Seleciona la hoja clientes" Exit Sub End If If ActiveCell.Column <> 3 Then MsgBox "Selecciona una celda de...

H o l a y bienvenida a Todoexpertos! Prueba lo siguiente, puse algunos comentarios para explicar las líneas del código. Sub Macro1() Dim wb1 As Workbook, wb2 As Workbook Dim sh11 As Worksheet, sh12 As Worksheet, sh13 As Worksheet, sh21 As Worksheet '...

La macro del enlace ajusta el alto de las filas en celdas combinadas. Macro para ajustar alto de fila en celdas combinadas ¿A qué te refieres con "bloqueado"?

No está el enlace al archivo. Pon aquí tu código para revisarlo.

G r a c i a s por compartir el código. Aquí otro ejemplo para considerar Sub test2() Dim c As Range, Data As String For Each c In Rows(10).SpecialCells(xlCellTypeConstants) If c.Value Like "*Rocoto*" Then Data = Data & c.Column & ", " Next If Data <>...

Prueba esto: Cambia en la macro "Formato", "principal" y "B6" por tus datos Sub copiaHoja() Sheets("Formato").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = Sheets("principal").Range("B6") End Sub

Aquí una macro con otro enfoque para ti a considerar. Sub Delete_Fila_Columna() Sheets.Select Rows(1).Select Selection.Delete Columns(1).Select Selection.Delete Sheets(1).Select End Sub

Prueba lo siguiente: Range("I7:I" & Range("G" & Rows. Count).End(xlUp). Row). Copy Windows("CITI COMPRAS.xlsx").Activate Range("AF6").PasteSpecial Paste:=xlPasteValues Range("AF6:AF" & Range("AF" & Rows.Count).End(3).Row).SpecialCells(2, 23).Offset(,...