Respuesta
en
Microsoft Excel
a
Como crear fórmulas entre archivos excel, como por ejemplo contar.si, y que la condición se cumpla en el otro archivo.
Observa este vídeo https://www.youtube.com/watch?v=TpXEIIRh_CM
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para copiar datos de un libro a la ultima fila de otro libro
Prueba y comentas Macro Sub copiar() Dim LibroDestino As Workbook Application.ScreenUpdating = False Set LibroOrigen = Workbooks.Open("\\Consignatria 2020.xlsx") Set LibroDestino = Workbooks.Open("C:\PruebaCarga.xlsx") 'Abre libro destino On Error...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Asignar color de celda según condición
Macro Private Sub CommandButton2_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then Fila = b.Row ' h.Cells(Fila, "B") = TextBox1 h.Cells(Fila, "C") = TextBox2 Select Case...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Modificar VBA para que pegue datos en otra hoja.
Macro actualizada Sub pegar() Dim c As Range, j As Long Set h2 = Sheets("Hoja2") ' j = h2.Columns("M").Column With ActiveCell For Each c In Range("A" & .Row & ":K" & .Row) If c.Value <> "" Then h2.Cells(.Row, j).Value = c.Value j = j + 1 End If Next...
Respuesta
en
Todoexpertos
y en 3 temas más
a
Es D. Amor el creador de Todoexpertos?
Dante Amor es un grande Ilustre y el fundador Josep Planells Alòs debe dar su reconocimiento por su gran labor y gratitud en la web todoexpertos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Actualizar columnas desde textbox dependientes de combobox
Macro Private Sub CommandButton1_Click() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' h.Cells(fila, "B") = TextBox1 h.Cells(fila, "C") = TextBox2 ' 'vas agregando...
Respuesta
en
Microsoft Excel
a
Combobox1 equivale al nombre de hojas y combobox2 dependiente carga datos de la columna A de cada hoja
Va la macro Private Sub ComboBox1_Change() ComboBox2.Clear Set h = Sheets(ComboBox1.Value) For i = 2 To h.Range("A" & Rows.Count).End(3).Row ComboBox2.AddItem h.Cells(i, 1) Next i End Sub Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value)...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Cargar Textbox al cambiar combobox dependiente de otro combobox
Macro Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' TextBox1 = h.Cells(fila, "B") TextBox2 = h.Cells(fila, "C") ' 'vas agregando el...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
COMBOBOX DEPENDIENTES: Combobox1 equivale al nombre de las hojas y combobox2 carga datos de la columna A de cada hoja
Macro para cargar el segundo combobox Private Sub ComboBox1_Change() ComboBox2.Clear Set h = Sheets(ComboBox1.Value) For i = 2 To h.Range("A" & Rows.Count).End(3).Row ComboBox2.AddItem h.Cells(i, 1) Next i End Sub crea una nueva petición para mostrar...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Añadir msgbox si al filtrar una tabla no hay registros
[Hola después de tu filtro pon esto fila = Worksheets("Hoja1").Range("B" & Rows.Count).End(xlUp).Row If fila = 1 Then MsgBox "No existe registros"