Dante Amor

Estoy un poco enredado. Para entender qué vas a buscar, en dónde lo vas a buscar, qué quieres de resultado y en dónde quieres poner el resultado, vamos a desglosar la fórmula BuscarV, te parece bien: - Nombre libro, Nombre Hoja y la columna donde...

Para dejar una fecha fija en una celda en función del dato de otra celda, y que además sea en automático, podrías hacerlo con un código VBA pero en el evento de tu hoja. Por ejemplo, si quieres validar la columna A y poner el resultado en la columna...

Crear una macro para que se adapte a todas las posibilidades que se te puedan ocurrir no es muy posible. Para que te des una idea, - La condición es sobre una columna o sobre varias columnas. - Cuántas condiciones establecerás. - Las condiciones...

Sí, ya ha pasado algo de tiempo. Te anexo la macro Sub Copiar_Celda() For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "B") <> "" Then fila = i Else Cells(fila, "B").Copy Cells(i, "B") Next End Sub [sal u dos

Te anexo la macro, solamente cambia el 2 por el número de fila donde inician tus datos. Sub Cobinar_Celdas() 'Por Dante Amor ' Application.DisplayAlerts = False ini = 2 'fila inicial de datos ' an1 = Cells(ini, "A").Value an2 = Cells(ini, "B").Value...

En vba no es necesario declarar las variables, todas son declaradas en automático como Variant. Si tu macro no es muy extensa, no utilices la instrucción Option Explicit; pero si quieres declarar todas las variables, entonces deberás hacerlo de...

Revisa mi artículo https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html Ahí puedes descargar el archivo de ejemplo.

Haber si entendí. Prueba con la siguiente macro Sub Copiar_Valor() ' Set h1 = Sheets(1) h = 2 For i = 1 To 15 Sheets(h).Range("A1").Value = h1.Cells(i, "A").Value h = h + 1 Next End Sub copia el dato de A1 en la hoja 2, luego el dato de A2 en la hoja...

Te explico lo que hace cada línea. Primero, como bien comentas, esta línea, lo que hace es ocultar todas las columnas desde la B y hasta la NI Columns("B:NI"). Hidden = True Para explicar la siguiente línea, debes visualizar que los días de cada mes...

Si la macro las vas a ejecutar después de filtrar los datos, entonces quedaría así: Dim valor As Integer valor = 1 For i = 11 To hs.Range("B" & Rows.Count).End(xlUp).Row If hs.Rows(i).EntireRow.Hidden = False Then hs.Range("A" & i).Value = valor...