Dante Amor

Te anexo la macro Sub Insertar_Fila() 'Por Dante Amor ' Insertar fila ' u = Range("A" & Rows.Count).End(xlUp).Row ant = Range("A" & u) For i = u To 1 Step -1 If ant <> Cells(i, "A") Then Rows(i + 1).Insert Shift:=xlDown,...

Te anexo la macro para poner en la columna D de la hoja1 los resultados Sub Iniciativas() 'Por. Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") With h1.Range("D1:D" & h1.Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 =...

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

Te anexo la macro para copiar los 4 rangos Sub Copiar_Todo() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") fila = 2 For i = 1 To 4 h2.Range("B" & fila & ":E" & fila + 11).Copy h1.Range("B2") fila = fila + 13 Next End Sub . .

Pon el siguiente código en un botón para validar lo captura en el textbox Nota: El código es un ejemplo, debes poner tus datos reales, nombre de hoja, nombre de textbox, nombre de label, columna donde se busca, etc Private Sub CommandButton1_Click()...

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...

Cuando presionas doble click sobre un elemento del listbox, con eso tienes el número de registro seleccionado. Por ejemplo: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) n = ListBox1.ListIndex End Sub en n tengo el número de...

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" &...

Pero debes explicar con pantallas, ejemplos, comentarios, colores, para tratar de entender qué necesitas. Envíame tu archivo con las explicaciones y lo reviso

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...