Dante Amor

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.

Suponiendo que tienes los datos así: Utiliza la siguiente fórmula =SI(Y(B2<>"", D2<>""), 1,0) Cambia B2 y D2 por las columnas en donde tienes tus valores físicos. Cambia en la fórmula la, por ; si el separador que utilizas es ;

Agrega la siguiente instrucción a tu macro: range("A5") = Environ$("computername") cambia "A5" por la celda que desees.

H o l a: Te anexo la macro actualizada, la macro se va a seguir ejecutando, pero solamente realizará los cambios en el libro que ejecutó la macro. Sub AppTimer() 'sirve para poner en blanco la fuente de los precios Set l1 = ThisWorkbook Set h1 =...

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 una alternativa, supongo que estás capturando datos en los combos y luego pasas la información a la última fila del listbox, vuelves a capturar datos y los pasas a la última fila del listbox. Private Sub CommandButton1_Click()...

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