Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo hacer una macro que pueda filtrar, copiar y pegar en otras hojas, en base a la data filtrada?
Ejecuta la siguiente macro para crear una hoja por cada nombre Cambia "base" por el nombre de tu hoja con la base de datos y "A" por la columna donde tienes los nombres. Sub Crea_Hojas() Dim c As Range, sh As Worksheet, ky As Variant ' Set sh =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo mantener formato en macro que copia hoja en excel?
H o l a, bienvenida al foro! Prueba lo siguiente: Sub Copia() Dim hoja As Worksheet, nueva As String Application.ScreenUpdating = False ' Set hoja = Sheets("Plan de Desarrollo") nueva = hoja.Range("D8") If nueva = Empty Then Exit Sub If...
Respuesta
en
Visual Basic
y en 2 temas más
a
No permitir campos vacíos en un formulario userform.
¿La fecha es un textbox? Intenta lo siguiente: Private Sub CommandButton2_Click() ' 'VALIDACIONES If Fecha.Value = "" Then MsgBox "Falta la fecha" Fecha.SetFocus Exit Sub End If If CodRodamientos.Value = "" Then MsgBox "Falta el CodRodamiento"...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
En excel en un formulario con varios cuadros de imagen, saber en que cuadro imagen hago clic para generar una macro
¿Tienes las imágenes dentro de un UserForm? Si es así, cuando presionas en una imagen, tienes este código: Private Sub Image1_Click() 'aquí pon tu código para la imagen 1 End Sub Si tienes las imágenes en la hoja, qué tipo de imagen son: - Son Shape...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Quiero extraer el dato de las celdas I6 & F8 de 2,000 pestañas de excel y se llene en una hoja nueva en columnas diferentes.
Lo siguiente crea una hoja nueva al inicio de todas tus hojas. En la columna A pone los datos de I6 y en la columna B pone los datos de F8 Sub extraer_datos() Dim sh As Worksheet, sh1 As Worksheet, a As Variant, i As Long ' ReDim a(1 To Sheets.Count,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que pida un valor y busque dicho valor en una columna de una hoja y coloque color de relleno, color de letra y negrilla
Aquí te dejo otra macro con otro enfoque para tu consideración. Sub CambiarColor() Dim codigo As Variant, a As Variant, hs As Variant Dim i As Long, h As Long, r As Range, existe As Boolean codigo = Application.InputBox("ingresar un número de...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Combobox que al seleccionar ítem cambie de color a textbox
Prueba lo siguiente. Cambia el fondo del color de los TextBox1 a TextBox7. Private Sub ComboBox1_Change() Dim wColor As Variant, i As Long Select Case ComboBox1.Value Case 1 To 25: wColor = vbBlue 'azul Case 26 To 50: wColor = vbRed 'rojo Case 51 To...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como crear una macro para copiar y pegar con condición
Aquí otra macro para ti a considerar: Sub CopiarDatos() Dim i As Long For i = 2 To Range("A" & Rows.Count).End(3).Row Range("E" & Rows.Count).End(3)(2).Resize(Cells(i, "C"), 3).Value = Range("A" & i).Resize(1, 3).Value Next End Sub Tus datos en las...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Extraer datos de hojas de libro y acomodar según valor deseado en otra hoja
Prueba la siguiente macro. En la hoja "Datos" en la celda A2 pon el número de tarima Los resultados estarán en la hoja "Datos" de la fila 4 hacia abajo. Sub Extraer_datos() Dim sh As Worksheet, tarima As String, lr As Long '...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que sume todos los registros de un Item de una hoja y dicha suma me la copie en la fila de ese item en otra hoja
Prueba lo siguiente: Sub sum_ref() Dim lr As Long, f As Range lr = Sheets("Cartera").Range("C" & Rows.Count).End(xlUp).Row Set f = Sheets("Clientes").Range("C:C").Find(Sheets("Visitas").Range("C7"), , xlValues, xlWhole) If Not f Is Nothing Then...