Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar fila según criterio
La macro: Sub copiar() 'Por.DAM 'nombres de hojas Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino col = "E" 'columna para verificar u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row + 1 For i = 1 To h1.Range(col &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Dos eventos en una misma hoja
¿Cuál es la siguiente macro? Es esta: Dim Celda As Range Dim Rango As Range Range("D1").Select Set Rango = Selection For Each Celda In Rango 'si la celda está en color rojo If Celda.Interior.Color = RGB(255, 0, 0) Then 'Ejecuta macro Call...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como guardar datos Horizontalmente en una Hoja Excel mediante macros
Puedes enviarme tu archivo, en la hoja1 pon los datos tal y como los tienes, y en la hoja2 pon los datos como los quieres.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problemas con If, Then y Else en macro
Las instrucciones "Call ABRE" deben ir en la siguiente fila, así Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AQ$3" And ActiveCell = "GENERAR" Then Call ABRE ElseIf ActiveCell = "NO GENERAR" Then...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Hoja de varios excel exportada a txt
¿Vas a copia la hoja 7000 veces? ¿Y cada vez el nuevo libro tendra un nuevo nombre dependiendo de la celda? ¿Siempre es la hoja2? ¿Y de cual o de cuales celdas se tomara el nombre?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para bloquear celda después de escribir
Para que una fila o una celda o un rango se bloquee, primero tienes que desbloquear todas las celdas, después tienes que proteger tu hoja. Desbloquear todas las celdas: 1. Selecciona todas las celdas presiona Ctrl + E o presiona las teclas Ctrl +...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para crear carpetas usando algún comando para evitar el error cuando ya existan
Con la instrucción para saber si existe una carpeta: If Dir("d:\" & Hoja1.[a2], vbDirectory) = "" Then MkDir ("d:\" & Hoja1.[a2]) Worksheets(2).Copy ActiveWorkbook.SaveAs "d:\" & Hoja1.[a2] & "\" & ActiveSheet.Name ActiveWorkbook.Close...
Respuesta
en
Visual Basic
y en 2 temas más
a
¿Como evitar errores al trabajar con otro programa al mismo tiempo que un formulario vb de excel?
Tal vez tengas que poner algo así: Workbooks("libro1"). Sheets("consulta"). Range("B3") = TextBox1 Con lo anterior, no importa qué libro esté activo, siempre se almacenará en el "libro1", en la hoja "consulta" en la celda "B3" Cambia "libro1",...
Respuesta
en
Programación
y en 1 temas más
a
Macro para Insertar una Imagen en una celda desde un boton.
Al principio de la macro puedes poner en cuál celda quieres la ruta y en cuál celda quieres la imagen, cambia las celdas que quieres en estas líneas de la macro: ruta = "A32" 'celda en donde se pondrá la ruta imagen = "D2" 'celda en donde se pondrá...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar el valor de una celda que esta en varias hojas de excel
Con esta macro sumas los valores. Sub sumar() 'Por.DAM h1 = "resumen" For Each h In Sheets If h.Name <> h1 Then tot = tot + h.Range("B2") Next Sheets(h1).Range("B2") = tot End Sub Cambia en la macro la palabra "resumen" por el nombre de la hoja en...