Respuesta
en
Visual Basic
y en 2 temas más
a
Buscar por código y reemplazar algunos campos en excel por formulario en visual basic
[Hola Te paso la macro, cambia los nombres de los textbox y de la hoja por el tuyo Para finalizar hay 2 opciones Excelente o bueno saludos. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Set h1 = Sheets("Hoja3") Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Volver visible hoja de libro que se ocultó por macro que esconde la Hoja1 sin importar el nombre.
[Hola para mostrar las hojas ocultas usa esto Sub mostrar() For Each h In Sheets If h.Visible <> -1 Then h.Visible = -1 End If Next msgbox "fin" End Sub valorar la respuesta para finalizar saludos!
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar Datos de Columna con datos y vacíos
[Hola Te paso la macro Esto copia datos de la columna A a la columnas D Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar_datos() 'Por Adriel Ortiz ' Set h1 = ActiveSheet ' u = h1.Range("A" & Rows.Count).End(xlUp).Row...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como buscar un mismo dato en 2 Hojas
[Hola Te paso la macro actualizada Valora la respuesta para finalizar saludos! Sub buscar() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ' Dato = h1.TextBox1 Set r = h1.Columns("A") Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito eliminar filas de una base de datos que tengan celda vacía en la columna A. Los datos de mi BD empiezan en la fila 9
[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub eliminar() ' 'Por Adriel Ortiz ' Set h = Sheets("Hoja1") u = h.Range("A" & Rows.Count).End(xlUp).Row For i = u To 9 Step -1 If h.Cells(i, "A") = "" Then...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
VBA Excel - Macro - Pegar en celdas vacías
[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copia() ' '**Act.Adriel Ortiz ' texto = ActiveCell For i = ActiveCell.Row To 1 Step -1 If Cells(i, ActiveCell.Column).Value = "" Then Cells(i,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar hoja "REPORTE" con nombre de fecha actual y que solamente se pueda copiar una vez por día
[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiahoja() ' '**Por Adriel Ortiz ' Application.ScreenUpdating = False Sheets("Reporte").Visible = False existe = False For Each h In Sheets nom = Format(Date,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Eliminar selección tras haberla pegado en otra hoja
Al final agrega esto Sheets("HojaA").Select Selection. Clear
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar rangos discontinuos en VBA
[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub copiar() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 '...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para sumar valores de una columna dependiendo de dos condiciones
[Hola Muestra una imagen con tienes una organizado tus datos y que se note la fila y columna