Dante Amor

[Ho la y bienvenido a todoexpertos. Para hacer solamente una macro para todos los checks, debemos obtener los datos resaltados en amarillo de la imagen de alguna parte. ¿En dónde tienes esos valores?, es decir, si presiono el checkbox1, ¿de la hoja...

Revisa si lo siguiente te puede ayudar. Pide que guarden los archivos en su escritorio. Con la siguiente línea: ruta = Environ("USERPROFILE") & "\Desktop\" Podrás obtener el nombre de la carpeta "escritorio", no importa la máquina donde se encuentre....

No entiendo tu macro. Explica con ejemplos qué resultados esperas.

Al parecer tu imagen no corresponde a la macro. En la imagen, la celda "inicial" es B2, pero en tu macro dice celda A10: With Range("A10").CurrentRegion 'CELDA INICIAL Tampoco entiendo cómo pasan los datos del rango de la izquierda a la derecha. En...

Prueba con la siguiente macro. Puse 2 arreglos, uno para los valores a filtrar y otro para las celdas destino. Sub Copiado_pegado() 'Por Dante Amor Dim rng As Range, f As Range Dim sh1 As Worksheet Dim tbl As ListObject Dim ar1 As Variant, ar2 Dim i...

Utiliza el siguiente código. Cada que empiezas a capturar letras en el textbox1, en automático hace el filtrado en el listbox1. Revisa las indicaciones en el código para que lo adaptes a tu userform: Option Explicit ' Dim a As Variant 'Al inicio del...

En la hoja "copia", en la celda B1 puedes poner la fórmula: =datos! B1 Y copiar hasta la D1 y hacia abajo. La otra opción es con macro. Pon el siguiente código en los eventos de la hoja "datos": Private Sub Worksheet_Change(ByVal Target As Range) Dim...

Aquí otro código a considerar: Sub Copia_Datos_2() Dim sh1 As Worksheet Set sh1 = Sheets("Hoja1") With Sheets("Hoja2") .DrawingObjects("Rounded Rectangle 47").Text = sh1.Range("A1") .DrawingObjects("Oval 48").Text = sh1.Range("B1")...

Te comparto una explicación: Sub test() Dim Ary As Variant Dim r As Long ' 'Almacena en memoria, en una matriz "Ary" el valor de los dados 'desde la celda A2 y de la columna B hasta celda con datos de la columna A Ary = Range("A2:B" & Range("A" &...

No es necesario un textbox. En la celda donde quieres la fecha, simplemente pon la función: =Hoy( ) En la celda pon el formato que deseas.