Respuesta
en
Microsoft Excel
y en 2 temas más
a
Obtener numero de semana, día y mes en celdas separadas con macro de una fecha cualquiera
H o l a: Te anexo un par de macro para que revises cuál te funciona mejor. Según tu imagen, la fecha la tienes en la columna D, y quieres la semana en la A, el mes en la B y el día en la C. Macro1, el número de semana se considera empezando la semana...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Tengo varios TextBox que al no ingresar datos y ejecutarlo con un CommandButton me arroja error.
H o l a: Para verificar los datos se pueden poner unas validaciones antes de la operación. Private Sub CommandButton1_Click() 'Act.Por.Dante Amor If TextBox1 = "" Or Not IsNumeric(TextBox1) Then MsgBox "Introduce un valor correcto en el TextBox1",...
Respuesta
en
Visual Basic
y en 2 temas más
a
Código VBA excel para duplicar registro de datos en 2 hoja a la vez!
H o l a: Te anexo la macro actualizada, cambia la hoja "bitacora" por el nombre de tu hoja que va a contener la bitácora. Private Sub Validar_Click() 'Act.Por.Dante Amor Range("B9").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Codigo para que excel descargue los datos en la hoja desde donde es llamado el formulario (Hoja Activa)?
H o l a: Así quedaría la macro Private Sub Validar_Click() 'Act.Por.Dante Amor Range("B9").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Offset(0, 0) = lbFecha.Caption ActiveCell.Offset(0, 1) = lbDocumento...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Abrir archivos excel con combobox o listbox
H o l a: Pon el siguiente código en tu formulario: Private Sub ComboBox1_Change() 'Por.Dante Amor Application.DisplayAlerts = False ruta = "D:\correo\correo\" 'ruta = ThisWorkbook.Path & "\" If Dir(ruta & ComboBox1) = "" Then MsgBox "el archivo no...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Hacer una macro para dar el valor de una celda activa de una hoja a una variable "casillapreciounitario", para después abrir un
H o l a: ¿Pero cuál es la celda? Es mejor si haces referencia a la celda que a la celda seleccionada, sobre todo si estás en un formulario, ya que el formulario está encima de la hoja de excel y no te permite ver en dónde está la celda activa. Cuando...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Error al Ingresar nuevos clientes
H o l a: Con esta instrucción estás insertando una fila: Selection. EntireRow.Insert Y luego estás escribiendo el nuevo registro en según lo que tienes en tu variable fila Cells(fila, 2).Value = form_clientes.TextBox_nombre.Value Tienes que quitar...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro imprime páginas que indique una celda
H o l a: Te anexo la macro Sub ImprimirPaginas() 'Por.Dante Amor If [A1] = "" Then MsgBox "No hay páginas a imprimir en la celda A1" Exit Sub End If ' pags = Split([A1], ",") For i = LBound(pags) To UBound(pags) ExecuteExcel4Macro "PRINT(2," &...
Respuesta
en
Visual Basic
y en 1 temas más
a
¿Cómo extraer datos únicos de dos o más listas en una sola?
H o l a: Lo que puedes hacer es copiar todos los datos en una sola columna, seleccionar la columna y seleccionar del menú Dat, Quitar Duplicados. Si lo quieres con una macro: Sub DatosUnicos() 'Por.Dante Amor cols = Array("A", "B", "C", "F") col2 =...
Respuesta
en
Visual Basic
y en 1 temas más
a
Necesito generar un informe de una orden con varios Items
H o l a: Te anexo la macro, actualiza en la macro el nombre de las hojas: "base de datos" y "informe". La macro supone que los datos está en las columnas de la A a la G y que el resultado lo quieres en las columnas A, B y C. Si no son esas columnas...