Dante Amor

En la macro de tu botón, para saber el número de fila se utiliza lo siguiente: fila = activecell.row .

Primero, le pones nombre a la imagen recién insertada Sub inse() RutaActual = ThisWorkbook.Path 'Elegimos la celda L6 ActiveSheet.Range("L6").Select Set RangoImagen = ActiveCell 'Insertamos la imagen que corresponda al nombre de la celda indicada...

Te anexo la macro Sub Des_Combinar_Celdas() 'Por.Dante Amor Application.ScreenUpdating = False For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).MergeCells Then ini = Range("A" & i).MergeArea.Cells(1, 1).Row fin = Range("A" &...

Cambia las líneas de tu macro dese el inicio hasta esta línea: Range("D22:E2").Select Por este código: Set h1 = Sheets("formulario") Set h2 = Sheets("tabla datos") h2.Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove...

En la condición 1, r el contenido de la hoja1, celda A1, lo quieres buscar en la hoja2, ¿pero en cuál columna? Te pongo un ejemplo y ya me comentas Sub Marco1() If Sheets("Hoja2").Range("A1").Value = Sheets("Hoja1").Range("A1") Then Set b =...

Te anexo la macro Pon el libro con la hoja "portada2" en una carpeta diferente de donde tienes los libros destino Cambia esta línea "C:\trabajo\libros\" por el nombre de tu carpeta donde tienes los libros destino. La macro abrirá cada libro y le...

Ejemplos: Private Sub CommandButton1_Click() ' 'Validaciones de textbox If TextBox1.Value = "" Then MsgBox "Falta el dato1" TextBox1.SetFocus Exit Sub End If If TextBox2.Value = "" Then MsgBox "Falta el dato2" TextBox2.SetFocus Exit Sub End If If...

¿Explicas qué dato va en el textbox? Utiliza ejemplos reales, porque mencionas textbox1, luego que es el textbox38 y terminas con el textbox138. Entonces qué pones en el textbox y qué quieres que suceda.

Te anexo algunos ejemplos VBA Excel seleccion de lista desplegable Excel VBA: cargar datos en textbox al ingresar valor en combobox Al momento de ingresar datos en un combobox, que automáticamente genere un dato en un textbox Sal u dos

Pon lo siguiente en el botón de tu userform de tu libro1 Private Sub CommandButton1_Click() Set l1 = ThisWorkbook Set l2 = Workbooks("libro 2.xlsx") 'nombre de libro2 Set l3 = Workbooks("libro 3.xlsx") 'nombre de libro3 'Los 3 libros deben estar...