Adriel Ortiz Mangia

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub buscarvalores() 'Por Adriel ortiz ' Set h1 = Sheets("Salidas") Set h2 = Sheets("Articulos") dato = h1.TextBox1 Set b = h2.Columns("A").Find(dato, lookat:=xlWhole) If Not b Is...

[Hola hazlo así If Range("B1") = "" Or Range("C2") = "" Or Range("C1") Then MsgBox "Complete los datos obligatorios" Exit Sub End If valora la respuesta para finalizar saludos!

[Hola haber si la idea es esto =CONTAR.SI(L5:U5;"N")*V$2+V$3+ CONTAR.SI(L5:U5;"P")*V$1+V$3

[Hola que tal así =CONTAR.SI.CONJUNTO(C4:C90;"5000")+CONTAR.SI.CONJUNTO(C4:C90;"30000")

Prueba así Sub extraerdatosotrolibro() Dim librodatos As Workbook ' Set librodatos = Workbooks.Open("C:\Users\Aortiz\Desktop\ico\data.xlsx") librodatos.Sheets(1).Range("b2:b50").Copy librodatos.Close savechanges:=False j = 2 ActiveSheet.Range("A" &...

[Hola Te paso una nueva macro Sub copyEntregas() 'Por Adriel Ortiz ' Set h1 = ActiveSheet Set h2 = Sheets("ENTREGAS") ' cond = "Entrega" For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "A") = cond Then u = h2.Range("A" &...

[Hola Te paso la macro Sub copiar() 'Por Adriel Ortiz Mangia ' For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set b = Rows(i).Find(Cells(i, "A"), lookat:=xlPart) If Not b Is Nothing Then col = b.Column Cells(i, "B") = Cells(i, col) 'Cells(i,...

[Hola Prueba así a1.Range("AI" & cont) = Format(CDec(form_FRASRenting.TextImporte), "0.00€")

[Hola Te paso la macro, crea un botón para actualizar. Sub actualizar_reg() 'Por Adriel ' Set h1 = Sheets("Registro") Set h2 = Sheets("Datos") ' If h1.[D7] = "" Then MsgBox "Ingrese codigo " Exit Sub End If ' Set r = h2.Columns("A") Set b =...

[Hola Te paso la macro Sub copiarhoja() 'Por Adriel Set l1 = ThisWorkbook ' libro origen Set l2 = Workbooks("libro2.xlsx") ' libro destino ' Set h1 = l1.Sheets("Hoja1") Set h2 = l2.Sheets(1) ' u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1...