Sebas Torres

Dim Celda as Range Ser h1 = sheets("hoja1") Ser h2 = sheets("hoja2") Set Celda = Activecell Nombre = range("A1") Número = range("B1") Monto = range ("C1") Ufila = H2.range("A" & rows.Count).End(xlup).row + 1 If target.column = 5 then If Celda.value =...

No distingo mucho tu macro ya que la estoy mirando desde el cel, además por la fecha de la pregunta quizás ya tengas la respuesta ... ¿Probaste agregar la línea "On Error Resume Next" haber si así te funciona?

Pon este código en el modulo de la hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) ufila = Range("B" & Rows.Count).End(xlUp).Row Cells(ufila, 3).Value = Range("k1") Cells(ufila, 4).Value = Range("k2") Cells(ufila, 5).Value =...

Simplemente en tu búsqueda elimina las líneas de las columnas que no quieras que aparezcan Por ejemplo si tienes tu listbox así ListBox1. List(ListBox1.ListCount - 1, 0) = H1. Cells(fila, "A") ListBox1. List(ListBox1.ListCount - 1, 1) = H1....

Ufila= range(rows.count & "G").End(xlUp).row Pufila= range(rows.count & "F").End(xlUp).row -1 Con esas 2 líneas tienes la última fila de G y la ante última de F Tendrías que copiarlos y pegarlos en esas celdas Ufila. Copy Range("B2"). Pastespecial...

Te dejo 2 Link quizás te sean de utilidad Borrar la última línea de un txt con un .bat Comando MOVE en CMD

Agrega en el botón de cerrar el formulario ThisWorkbook. Save

Tengo 2 macros la cual una te busca y la otra al seleccionar un items te muestra la descripción en la siguiente fila, pero no se como hacer que funcionen juntas je je Yo te las paso y tu ves si alguien te puede dar una mano para unirlas Este hiria en...

Selecciona las 2 columnasVe a la pestaña DatosSelecciona Validación de datosEn "Permitir" selecciona Numero EnteroEn "Datos" selecciona Menor que y escribe 50 Si te sirvió la respuesta no olvides valorarla y cerrar la pregunta

Seguramente tienes maneras más sencillas mediante un For each en las filas Pero de momento quizás te sirva esta macro ... Sub ComparColumna() For fila = 1 To 13 Set C1 = Cells(fila, 1) Set C2 = Cells(fila, 2) Set C3 = Cells(fila, 3) Set C4 =...