Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como crear un TEXTBOX calculadora automático
En los textbox se almacenan los datos como texto, por eso los tienes que convertir a valor numérico, una forma sería con la función CDbl, por ejemplo: Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(TextBox1.Value) Then...
Respuesta
en
Visual Basic
y en 3 temas más
a
Que programación lleva cada que se agrega un nuevo campo o caja para ingresar datos
Te anexo el código para agregar 2 campos nuevos Además de agregar los textbox en el formulario: Este sería el código actualizado para pasar los datos con los campos nuevos a la hoja Private Sub CommandButton1_Click() Sheets("proveedores").Activate If...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Automatizar un valor preestablecido pero dinámico a un textbox. (Macro Excel)
Para qué es le Userform2, ¿para consultar? Después de crear el COD1, ¿cierras el Userform1? Puedes poner una imagen de la hoja de excel donde estás almacenado: COD1, DATO1, DATO2, DATO3, FECHA1 y NUMERO1
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para poner dato en celda vacías
Va la macro Sub Macro1() 'Rellenar celdas vacías On Error Resume Next u = Range("A" & Rows.Count).End(xlUp).Row Range("B2:B" & u).SpecialCells(xlCellTypeBlanks).Value = "NO" End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Guardar un libro en diferentes direcciones
Puedes comentar: ¿El archivo a guardar está abierto? ¿El archivo a guardar es el que contiene la macro? ¿O el archivo a guardar está en un directorio específico?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro pegar valores buscando el último dato
Te anexo la macro Sub Copiar_TD() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 h1.Range("A10:F" & u1).Copy h2.Range("B" &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para filtrar casa elemento de una lista y guardar el resultado de ese filtro en csv.
Te anexo la macro. Cambia en la macro "Hoja 1" por el nombre de tu hoja con datos. Crea una hoja y le pones por nombre "temp" Sub Separar_Datos() '---- ' Por Dante Amor '---- Application.ScreenUpdating = False Application.DisplayAlerts = False...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Error en Macro Necesito una solución
No entendí muy bien lo que hace la macro. Mejor explícame qué quieres hacer, te dejo algunos pasos, solamente completa la información: 1. Quieres copiar de la hoja "Aviso de Cobro", el rango "A1:M51" 2. Quieres crear una nueva hoja 3. En la nueva...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Macro que concatene los valores de igual criterio
Te anexo la macro Sub Concatenar_Notas() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' 'h2.Cells.ClearContents For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row nota = h1.Cells(i, "A").Value If nota <> "" Then Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Cómo reemplazar el valor de un textbox que es resultado de una operación en una celda de Excel
El error es porque tienes esto: ActiveSheet = Sheets("Inventario(almacén)") Me parece que el nombre correcto es con un espacio después de inventario: "Inventario (almacén)" Si corriges el nombre, ahora te marcaría el error: "Se ha producido el error...