Dante Amor

H o l a: Así quedaría la macro Private Sub Validar_Click() 'Act.Por.Dante Amor Range("B9").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Offset(0, 0) = lbFecha.Caption ActiveCell.Offset(0, 1) = lbDocumento...

H o l a: Pon el siguiente código en tu formulario: Private Sub ComboBox1_Change() 'Por.Dante Amor Application.DisplayAlerts = False ruta = "D:\correo\correo\" 'ruta = ThisWorkbook.Path & "\" If Dir(ruta & ComboBox1) = "" Then MsgBox "el archivo no...

H o l a: Con esta instrucción estás insertando una fila: Selection. EntireRow.Insert Y luego estás escribiendo el nuevo registro en según lo que tienes en tu variable fila Cells(fila, 2).Value = form_clientes.TextBox_nombre.Value Tienes que quitar...

H o l a: Puedes explicar todo con ejemplos reales y con imágenes, procura que en las imágenes se vean las letras de las columnas y los números de las filas. Deberás poner imágenes de cómo están tus hojas y en otra imagen cómo quieres el resultado.

H o l a: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False If TextBox1 = "" Then Exit Sub Set l1 = ThisWorkbook Set h1 = l1.Sheets("Buscar") ruta = "D:\correo\"...

H o l a: Te anexo la macro actualizada, revisa si es lo que necesitas. Sub pasar() ' Application.ScreenUpdating = False Dim ruta As String Dim ubica As String Dim lista As String ruta = ActiveWorkbook.Path & "\" Open ruta & "caritxt.txt" For Output...

H o l a: Te anexo la macro actualizada Private Sub CommandButton2_Click() 'Act.Por.Dante Amor existe = False hoja = ComboBox1 If hoja = "" Then MsgBox "Selecciona una hoja en el combo" Exit Sub End If ' For Each h In Sheets If UCase(h.Name) =...

H o l a: Te anexo la fórmula: =SI.ERROR(SI(ENCONTRAR(2010,B5,1)>0,2010),"NA")

H o l a: Te anexo la macro Sub CopiarComentarios() 'Por.Dante Amor Application.ScreenUpdating = False On Error Resume Next u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row For i = u To 1 Step -1 Rows(i + 1).Insert Shift:=xlDown,...

H o l a: Te anexo la macro, si tienes más datos en la columna A funciona desde la celda A1 hasta la última fila con datos que tengas en la columna A. Sub Extraer() 'Por.Dante Amor With Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row) .Formula =...