Dante Amor

Cambia todo tu código por el siguiente código: Private Sub ComboBox1_Change() 'Por Dante Amor ComboBox2.Clear If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then Exit Sub End If ' For i = 2 To GetUltimoR(Hoja16) If Hoja16.Cells(i, "A").Value =...

Estoy un poco confundido. Puedes poner una imagen de cada una de tus hojas, donde se aprecie un ejemplo completo. Procura que se vean las filas y las columnas de excel, me explicas qué contiene cada hoja.

Primero, debes cambiar esta variable Busquedaparaimpresión ' Por esta otra PalabraBusqueda ' Ahora, revisando tus If's anidados, ¿Más bien qué necesitas? Quieres buscar la palabraBusqueda; ¿Y si aparece en cualquiera de las columnas de la A a la J...

Puedes poner una imagen con ejemplos de lo que tienes y de lo que esperas de resultado. Tu respuesta Para subir una foto o una imagen, tienes que guardar la imagen con formato jpg Ya que tienes tu imagen en un archivo, presiona el icono de añadir...

Te anexo el código actualizado Sub busqueda() Application.ScreenUpdating = False ComboBox2.Clear Sheets("Rinventario").Activate Range("B1").Select For i = 1 To 100 If ActiveCell.Offset(i, 0).Value <> "" Then If ActiveCell.Offset(i, 2).Value <> 0 Then...

Te anexo la macro Sub Operaciones() 'Por Dante Amor u = Range("C" & Rows.Count).End(xlUp).Row Cells(u + 1, "C").Value = WorksheetFunction.Sum(Range("C2:C" & u)) Cells(u + 2, "C").Value = Cells(u + 1, "C").Value * 0.16 Cells(u + 3, "C").Value =...

Tengo algunas respuestas que tienen un ciclo para abrir varios archivos, revisa para que la adaptes a tu necesidad: Extraer datos específicos de un xml (campos repetidos) Código que Importe solo archivos xml Extraer datos específicos de un xml

Cambia esta línea: For i = 21 To h1.Range("P" & Rows.Count).End(xlUp).Row ' Por esta: For i = 12 To 30 ' Si no te funciona, dime qué mensaje de error te aparece. Pon una imagen de tu pantalla para ver cómo están los datos.

Vamos por Pasos. PASO 1. Seleccionar un dato en el combobox1 - Pon una imagen donde muestres cómo están tus datos que se cargan en el combobox1 - Un ejemplo explicando: cuando seleccionas un dato en el combobox1, qué dato quieres que aparezca en el...

Pon la siguiente macro en un módulo: Sub Imprimir() ' For i = 13 To 45 If cels(i, "R").Value >= 2 Then MsgBox "Impresión Cancelada. Existen valores >= 2", vbCritical Exit Sub End If Next ActiveSheet.PrintOut End Sub Sigue las Instrucciones para un...