Dante Amor

Puedes explicar con una imagen los datos que tienes en la hoja. También dime en cuál columna están las fechas. Cómo se llaman los textbox donde pones las fechas. Pon una imagen de lo que capturas en tu userform Y en la imagen de tu hoja marca cuál es...

Te anexo la macro. Ajusta en la macro, en la siguiente línea, el número 2 y la "A" por la fila y la letra de la columna donde empiezan tus "códigos y descripción" For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Sub...

Para encontrar la siguiente fila vacía después de la última celda con datos, te recomiendo utilizar la siguiente instrucción: emptyRow = Range("A" & Rows.Count).End(xlUp).Row + 1 Ya que la instrucción de contar, si existen celdas vacías, entonces el...

Supongo que tienes el error en esta línea: indRowBase = cell.Row Eso es debido a que no encontró la palabra "name" en la columna "A" de la hoja "Principal". Podrías solucionarlo de esta forma: Cambia estas 2 líneas Set cell =...

Olvídate de seleccionar la celda en la hoja, eso no es una buena practica. Lo más conveniente es encontrar el dato y tener en una variable el objeto del dato. Te explico Private Sub ListBox1_Click() ' 'activa la celda del producto seleccionado en la...

Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor 'filtrar Set h1 = Sheets("BASE DE DATOS FACTURACION") Set h2 = Sheets("Temporal") Set h3 = Sheets("libro") col = "F" 'columna de Fechas fila = 5 'fila de encabezados uc =...

Te presento otra forma de agregar registros Cambia todo tu código por el siguiente: Private Sub Guardar_Click() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If txtCédula = "" Then MsgBox "Ingresa la cédula" txtCédula.SetFocus...

Para crear una ventana "emergente" como la que pides es necesario crear un userform. Realiza los siguientes pasos: Pon la siguiente macro en un móduloSub abrir() UserForm1.Show End SubSigue las Instrucciones para un botón y ejecutar la macroAbre tu...

Te anexo la macro actualizada. La carpeta deberá estar en C:\ El nombre del archivo estará formado por las celdas C12 y F63 Sub Guardar_libro() 'Dim ruta, nombre As String ruta = "C:\" & Range("C63").Value´ 'x Elsa Matilde nbreLibro =...

Te anexo la fórmula =SI.ERROR(SI(BUSCARV(A1,Hoja1!A:C,2,0)="",BUSCARV(A1,Hoja1!A:C,3,0),BUSCARV(A1,Hoja1!A:C,2,0)),"No existe el dato")['No olvides valorar la respuesta.