Dante Amor

H o l a y bienvenido a TodoExpertos. Podrías responder las siguientes dudas y en este orden: 1. ¿El color lo pusiste manualmente en la celda o es un color de formato condicional? 2. Quieres contar las celdas qué tienen el color = 6, pero en tu macro...

Sub test() [K2] = sheets(range("A2"). Value).range("L2"). Value End Sub Cambia A2 por la celda donde tienes la lista desplegable.

Podemos simplificar un poco la macro de esta manera: Sub CopiaCeldas() Dim l1 As Workbook, l2 As Workbook, sh1 As Worksheet, sh2 As Worksheet Dim c1 As Variant, c2 As Variant, i As Long, j As Long Application.ScreenUpdating = False...

Prueba la siguiente: Sub test() Dim lr As Long lr = Range("A" & Rows.Count).End(3).Row If lr < 2 Then lr = 2 Range("C2:C" & lr & ",P2:P" & lr & ",AC2:AC" & lr & ",AP2:AP" & lr & ",BC2:BC" & lr).Select End Sub

Antes de ejecutar la macro, revisa que en las hojas "COF1" y "COF2" la columna "G" tenga formato "Texto", de esa forma se conservarán los ceros a la izquierda de los números. Prueba lo siguiente. Sub copiarFilas() Dim Sht3 As Worksheet Dim a As...

En el segundo fichero pon la macro en el evento Open de Thisworkbook: Private Sub Workbook_Open() 'pon aquí tu código 'ya no utilices la macro auto_open 'puedes poner aquí tu código y funciona cuando abres el libro End Sub Instrucciones para poner la...

Si en la columna K quieres los resultados en la misma fila donde tienes los datos de la tabla "Cartilla", tal y como se aprecia en tu imagen. Entonces en la celda K5 pon la siguiente fórmula y la copias hacia abajo....

He conseguido hasta ahora solo que la hoja de formato se replique pero no nombrarla con el nombre del cliente. ¿Ya tienes una macro? Pon aquí tu macro. Entonces, ¿quieres agregar un cliente y en ese momento que se genere una copia de la hoja...

No necesitas una macro, solamente pon la siguiente fórmula en la celda E6 y la copias hacia abajo hasta la última fila con datos de la columna B =BUSCARV(B6,datos!A:B,2,0)

Para borrar una celda y para que sea en automático debe ser con un código VBA en los eventos de la hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Set r = Intersect(Range("Q:Q"), Target) If Not r Is Nothing Then Dim c As...