Adriel Ortiz Mangia

[Hola Envíame tu archivo [email protected] saludos!

[Hola Te paso la macro, ajusta los nombres de tus controles por el tuyo. En el Formulario1 para el Textbox1. Valora la respuesta para finalizar saludos! Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '...

[Hola Si es con excel puedes mostrar tus datos y ver como están organizados para preparar la macro.

[Hola Te paso la macro. Valora la respuesta para finalizar saludos! Sub calcular_stock() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") ' For i = 2 To u...

[Hola Envíame tu archivo y me explicas como quedará el resultado saludos! email: [email protected]

[Hola Envíame tu archivo y me explicas como quedará el resultado saludos!

[Hola Te paso la macro para buscar. Para finalizar hay 2 opciones bueno o Excelente saludos! Private Sub CommandButton1_Click() 'Por Adriel Ortiz Set h = ActiveSheet ' HOJA SELECCIONADA Set b = h.Columns("A").Find(TextBox1, lookat:=xlWhole) ' BUSCA...

[Hola Te paso la macro, asumí que la columna CUENTA es la "D" Sub eliminar() ' '***Por Adriel Ortiz ' Set h1 = Sheets("REPORTES") ' u = h1.Range("D" & Rows.Count).End(xlUp).Row For i = u To 2 Step -1 If h1.Cells(i, "D") = "" Then h1.Rows(i).Delete...

[Hola Te paso la macro actualizada, agrega un combobox para que selecciones una hoja a buscar Valora la respuesta para finalizar saludos! Private Sub anular_Click() ' '***Act. Por Adriel Ortiz ' hoja = ComboBox1 Select Case Sheets(hoja).Name ' Case...

[Hola Envíame tu archivo con ejemplos y el resultado deseado a [email protected]