Adriel Ortiz Mangia

[Hola Te paso la macro Sub macro1() ' 'Por Adriel ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") > 0 Then Cells(i, "B") = "SI" Else Cells(i, "B") = "NO" End If Next i ' MsgBox "Fin" End Sub valora la respuesta como +Excelente o...

[Hola Te paso la macro Valora la respuesta para finalizar Sub comparar() '[Por Adriel Ortiz Mangia Set h1 = Sheets("Hoja1") ' For i = 3 To h1.Range("J" & Rows.Count).End(xlUp).Row Set b = h1.Range("B:B").Find(h1.Cells(i, "J"), lookat:=xlPart) If Not...

[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€")