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 Prueba así a1.Range("AI" & cont) = Format(CDec(form_FRASRenting.TextImporte), "0.00€")

[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...

[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...

[Hola Te paso la macro Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' fila_datos = 3 'fila de datos del cliente u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Rows(fila_datos).Copy h2.Range("A" & u) ' MsgBox...

Te paso la macro Sub Macro_copiar() ' ' Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 2 Then u = 2 h2.Cells(u, "A") = h1.[A4] h2.Cells(u, "B") = h1.[B7] h2.Cells(u, "C") =...

[Hola Pero cual es la celda y las condiciones

[Hola prueba esto Private Sub Worksheet_Activate() ActiveSheet.Range("A2").End(xlDown).Select End Sub