Respuesta
en
Microsoft Excel
a
Guardar en una celda encontrada con BUSCARV
[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 =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para copiar los datos de ciertas celda de un libro1 a un libro 2 en la siguiente fila que encuentre vacía
[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...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro en que fila y que columna estoy
[Hola usa esto Sub mensaje() MsgBox "Estoy en la fila " & ActiveCell.Row & " y en la columna " & ActiveCell.Column End Sub
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar una hoja en otro libro usando boton de comando
[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...
Respuesta
en
Microsoft Excel
a
Mantener datos en 2 celdas y que vayan acumulando el valor añadido diariamente
[Hola Te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por Adriel Ortiz ' If Not Intersect(Target, Range("C3")) Is Nothing Then If Target.Count > 1 Then Exit Sub Cells(Target.Row, "D") = Cells(Target.Row, "D") + Cells(Target.Row,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito saber como lograr que una fila de Excel se copie completa en otra pestaña de la misma hoja si una celda tiene un valor
[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...
Respuesta
en
Microsoft Excel
a
Copiar una hoja de Exel a un libro nuevo
[Hola Prueba con esto Sub copyworbook() 'Por.Dam 'Act. Adriel Ortiz On Error Resume Next ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Respuesta
en
Microsoft Excel
a
¿Como se crea una macro para que cuando se pinte una celda cualquiera se genere en la misma fila la fecha actual?
[Hola Excel tiene la propiedad de ejecutar una acción si haces cambios o si haces clic sobre la celda. La macro que te paso funciona cuando la celda esta pintada de amarillo y haces clic Private Sub Worksheet_SelectionChange(ByVal Target As Range) If...
Respuesta
en
Microsoft Excel
a
Como organizo macro en excel
[Hola 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,...
Respuesta
en
Visual Basic
y en 2 temas más
a
Como refrescar el textbox donde muestro el ultimo registro
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") =...