Adriel Ortiz Mangia

Antes vaciar los datos a la hoja pon If textbox1 ="" anda textbox2="" then Msgbox "ingrese los datos obligatorios" Exit sub End if Agregar para el resto

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo Valora la respuesta para finalizar saludos! Sub Transponer() 'Por.Dante Amor 'Act. Adriel Ortiz ' Application.ScreenUpdating = False Set h1 = Sheets("Hoja2") 'hoja origen j = 3 For i = 3...

[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 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 usa esto Sub mensaje() MsgBox "Estoy en la fila " & ActiveCell.Row & " y en la columna " & ActiveCell.Column End Sub

[Hola Prueba con esto Sub copiarhoja() 'Adriel Set l1 = ThisWorkbook ' libro origen Set l2 = Workbooks("libro1.xlsm") ' libro destino Set h1 = l1.Sheets("Hoja1") Set h2 = l2.Sheets.Add j = 1 h1.Cells.Copy h2.Range("A" & j) End Sub valorar para...