Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como capturar datos de un formulario en vba a distintas hojas de excel a la siguiente fila vacía de cada hoja
Cambia esto i = 1 For i = 1 To 500 Por esto: i = worksheets(2).range("C" & rows.count).end(xlup).row + 1 Y también borra la línea Next i'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Respuesta
en
Visual Basic
a
Como puedo usar el valor de una variable en dos formularios distintos en Excel VB
Te muestro una forma de hacerlo. Supongo que en el form1 tienes un botón que llama al form2. También supongo que después de llenar el form2, tienes un botón de Aceptar, para salir del form2 y regresar al form1. Si lo anterior es correcto, prueba lo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Crear archivo nuevo de una hoja de excel
Te anexo la macro Sub Crear_Archivo() 'Por Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Hoja1").Copy fecha = Format(Date, "dd-mm-yyyy") texto = "aqui pon tu texto" ruta = ThisWorkbook.Path & "\" '...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Insertar filas de acuerdo a una condición y pegar las filas anteriores en las filas insertadas
Te anexo la macro. Pon tu información en la "Hoja1", el resultado quedará en la "Hoja2" Sub Copiar_Filas() 'Por Dante Amor Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' j = 2 h2.Cells.ClearContents For i = 2 To...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como hacer una pantalla de búsqueda en Excel
Revisa el siguiente artículo https://www.gerencie.com/formulario-automatico-de-una-hoja-de-datos-en-excel.html Ahí explico las instrucciones para utilizar el form de excel y también para realizar búsquedas.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Problema con código pues se bloquea el Excel
No se ve el código, puedes ponerlo nuevamente.
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como hacer una búsqueda usando como referencia filas y Columnas
Te anexo el código para buscar y enviar Private Sub cmdenv_Click() 'Por Dante Amor 'Buscar y enviar ' Set h1 = Sheets("MEMORIAS ACTO") 'hoja origen Set h2 = Sheets("EMPALMES2") 'hoja destino h2.Range("A15:E28").ClearContents ' If cbxsum.Value = "" Or...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pasar datos de formularios vba excel a hoja y celda especifica
Te anexo el código actualizado. Cambia "Hoja1" por el nombre de tu hoja Cambia "A", "B", "C", "D", "E", "F" por las columnas donde quieras guardar cada txt Private Sub btn1_Click() Set h = Sheets("Hoja1") 'establecer el nombre de hoja u = h.Range("A"...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro copiar cada seis celdas hasta encontrar celda en blanco
Te anexo la macro Sub Copiar_Celdas() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Cells.ClearContents j = 1 For i = 5 To h1.Range("D" & Rows.Count).End(xlUp).Row...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Alerta al buscar más de u a ves un dato
Te anexo la macro actualizada Sub CommandButton4_Click() buscar = InputBox("Scanea el codigo que deseas buscar", "Buscar....") If buscar = "" Then Exit Sub ' col = "A" ' columna a buscar col2 = "U" ' columna a pegar el dato encontrado ' Set b =...