Respuesta
en
Microsoft Excel
y en 3 temas más
a
Activar celda de ítem seleccionado en listbox (PARTE2)
Olvídate de seleccionar la celda en la hoja, eso no es una buena practica. Lo más conveniente es encontrar el dato y tener en una variable el objeto del dato. Te explico Private Sub ListBox1_Click() ' 'activa la celda del producto seleccionado en la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar datos de ListBox a otra hoja comenzando desde una fila en particular y desplazando hacia abajo otras
Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor 'filtrar Set h1 = Sheets("BASE DE DATOS FACTURACION") Set h2 = Sheets("Temporal") Set h3 = Sheets("libro") col = "F" 'columna de Fechas fila = 5 'fila de encabezados uc =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Guardar datos de un TextBox en dos hojas
Te presento otra forma de agregar registros Cambia todo tu código por el siguiente: Private Sub Guardar_Click() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If txtCédula = "" Then MsgBox "Ingresa la cédula" txtCédula.SetFocus...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Ventana emergente para ingresar un código y busque Excel vba
Para crear una ventana "emergente" como la que pides es necesario crear un userform. Realiza los siguientes pasos: Pon la siguiente macro en un móduloSub abrir() UserForm1.Show End SubSigue las Instrucciones para un botón y ejecutar la macroAbre tu...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para guardar una ruta, en una carpeta especifica
Te anexo la macro actualizada. La carpeta deberá estar en C:\ El nombre del archivo estará formado por las celdas C12 y F63 Sub Guardar_libro() 'Dim ruta, nombre As String ruta = "C:\" & Range("C63").Value´ 'x Elsa Matilde nbreLibro =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Abrir cualquier tipo de archivo seleccionado desde una listbox
En tu botón para VER pon el siguiente código: Private Sub CommandButton15_Click() Call verArchivo(ListBox1, ruta1) End Sub También agrega el siguiente código a tu userform Sub verArchivo(ListBox1, ruta1) arch = ListBox1.List(ListBox1.ListIndex, 0)...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Consulta Macro para copiar el contenido de una carpeta
Prueba la siguiente macro. Te pide una carpeta y a partir de esa carpeta te pone en la hoja todas las subcarpetas y los archivos de cada subcarpeta. Dim j Dim rutas As New Collection Sub carpetasysub() 'por.dam 'lista archivos de una carpeta y todas...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Quisiera realizar una macro para copiar los valores de una fila y pegarlos en otra fila de una hoja distinta.
Puedes especificar los nombres de las hojas. Cuál fila quieres copiar. Cuáles y cómo se deben cambiar los valores.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cargar combobox datos de una columna listbox
Pon el siguiente código. Cargará la columna 2 del listbox, si quieres la columna 1, cambia el 1 por el 0 en esta parte: .list(i, 0) Private Sub ComboBox1_Enter() ComboBox1.Clear For i = 0 To ListBox1.ListCount - 1 ComboBox1.AddItem ListBox1.List(i,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Comentario anidado con macros vba
Te anexo la macro. Pone comentarios desde la fila 2 y hasta la última fila con datos; y desde la columna B y hasta la columna K Sub Poner_Comentarios() 'Por Dante Amor ' For i = 2 To Range("B" & Rows.Count).End(xlUp).Row n = 0 For j = 2 To...