Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para pasar todos los datos de una columna por dos celdas
No entendí si desde esta macro quieres ejecutar la macro "copiar", porque en tal caso tendrás que mencionar con cuáles combinaciones se debe ejecutar. Te anexo la macro, según tu ejemplo, si en la celda D1 pones el dato "A1", entonces en la celda...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar datos de una factura a una hoja resumen o salida
Te anexo una nueva macro, prueba y me comentas. Sub Enviar_Salida() ' Por Dante Amor Set h1 = Sheets("Remito") Set h2 = Sheets("Salida") ' i = 13 u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 Do While h1.Cells(i, "A") <> "" h2.Cells(u2, "A") =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Enviar distintas celdas de una fila de Excel por correo, en otro correo enviar las mismas celdas pero de otra fila, y así sucesi
Puedes poner la macro para actualizarla. También me comentas de dónde obtienes el correo del destinatario, el asunto y el cuerpo del correo. En cuál fila inician los datos. Te preparo un ciclo, para que con solamente presionar un botón se envíen...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Que debo hacer para un listbox y textbox mantengan la fecha y no se vuelvan decimales al momento de una búsqueda o actualización
Si estás cargando el listbox con algo como esto: u = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To u ListBox1.AddItem Cells(i, "A") ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "B") 'carga fecha Next Al momento de almacenar la fecha en el...
Respuesta
en
Visual Basic
y en 2 temas más
a
Macro visual basic para buscar y reemplazar
Te anexo la macro. Pon tus datos en la columna A. El resultado quedará en las columnas B y C Sub Reemplazar() ' ' Por.Dante Amor ' Columns("B:C").ClearContents u = Range("A" & Rows.Count).End(xlUp).Row With Range("A1:A" & u) .Replace What:=",",...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como Guardar un libro con un dato de Formulario VBA EXCEL
Te anexo el código para guarda como Private Sub CommandButton1_Click() 'Por.Dante Amor 'Imprimir hoja Worksheets("Hoja1").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False ' 'Guardar archivo como pdf ruta = ThisWorkbook.Path & "\" 'nombre...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Restar valor después de vlookup vba
Supongo que en alguna parte de tu usesrform estás capturando la cantidad que vas a sacar, siendo así, entonces sustituye en el código "cantidad" por el nombre de tu control. Te anexo un código para realizar el descuento. Private Sub...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Unir distinas columnas excel (no concatenar)
Si en tus celdas tienes el error #N/A, entonces la fórmula If te va a regresar error. Si en realidad tienes #N/A, entonces podrías utilizar la siguiente fórmula: =IF(ISERROR(A1), IF(ISERROR(B1), IF(ISERROR(C1),"Opcion X", IF(C1="Opcion C", C1,"Opcion...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como remplazar datos de hoja 2 a hoja 1 VBA EXCEL
Te anexo la macro Sub Actualizar_Datos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") Set b = r.Find(h2.Cells(i, "A"), LookAt:=xlWhole) If Not b Is...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Expandir una tabla con hoja protegida XLS
Puedes crear un userform con los datos que necesitas que capturen los usuarios. En el mismo userform poner el código para pasar, desproteger la hoja, poner los datos en la hoja y volver a proteger la hoja. Por ejemplo: El código para guardar los...