Dante Amor

Revisa el siguiente vídeo, ahí explico cómo hacer la correspondencia con etiquetas utilizando el asistente de word. https://www.youtube.com/watch?time_continue=250&v=TvJd7L36sHU

Ya no entendí, puedes aclarar lo siguiente: ¿En la celda X2 tienes una fórmula con el resultado "" o en la celda X2 tienes la celda vacía? Quieres copiar la celda X2 a Y1, pero qué quieres copiar, si la celda está vacía, pues no se copia nada. Si la...

H o l a Rhossi: Tengo algunas dudas. En la celda E12 (utilidad) de la hoja ventas, ¿vas a capturar algo? Siguiendo con tu mismo ejemplo, puedes poner en la hoja BD el resultado que esperas. En la hoja ventas capturas en las celdas o en un textbox,...

Prueba así: Set h = Sheets("Base de datos") If OptionButton1.Value = True Then registro = xlNext Set b = h.Columns("A").Find(ComboBox_patente1, LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=registro) End If If Not b Is Nothing Then...

Te anexo el código Private Sub CommandButton1_Click() ' Set h1 = Sheets("Hoja1") If TextBox1.Value = "" Then MsgBox "Captura el textbox1" TextBox1.SetFocus Exit Sub End If uf = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(uf, "A").Value =...

Puedes poner un par de imágenes donde expliques cómo tienes los datos en la hoja "compras" yy cómo quieres el resultado en la hoja "BD", procura que se vean las filas y las columnas de excel

Me parece que solamente tienes que cambiar esta línea If LCase(Cells(i, j)) Like "*" & LCase(txtFiltro1) & "*" Then Por esta (falta el objeto h1 para hacer referencia a la hoja): If LCase(h1.Cells(i, j)) Like "*" & LCase(txtFiltro1) & "*" Then Por...

Para tener una configuración de criterios y poder resolver esto: Esta información ira creciendo en un futuro, agregando mas posibles combinaciones, con diferentes letras y números Vamos a crear una hoja de "Criterios". Entonces crea una hoja de...

Puedes poner imágenes de lo que tienes y de lo que esperas de resultado.

Te anexo la macro actualizada. Cada que la ejecutes, primero te limpiará la columna destino Sub unir_columnas() 'Por.Dante Amor Application.ScreenUpdating = False ci = Columns("C").Column 'columna inicial a unir cf = Columns("O").Column 'columna...