-
Content Count
800 -
Joined
-
Last visited
-
Days Won
8
Reputation Activity
-
DiegoLG got a reaction from Benito Bartolomé in Copiar y pegar datos de origen en una macro
Esa columna de serie, se mantiene en la misma columna?
Por que no subes un archivo donde tenga esa columna y pega de forma manual como necesitas la información en la hoja W.
Y si te puedo ayudar, con gusto vale; y si no, pues habrá alguien mas.
Saludos amigo.
-
DiegoLG got a reaction from Benito Bartolomé in Copiar y pegar datos de origen en una macro
Revisando tu archivo, y haciendo comparación de las dos hojas, trae los mismos encabezados, no veo en que columna se encuentra lo que comentas (SERIE) ¿?.
Pero te propongo algo, y si creas una hoja temporal, eliminas la columna que no te sirve y posteriormente pasar a la hoja W.
Saludos cordiales,
Diego.
-
DiegoLG got a reaction from jeaa in NECESITO AYUDA CUANDO REGISTRO LOS DATOS SE CIERRA EL LIBRO
@jeaa con F8, puedes identificar el error.
Saludos,
-
DiegoLG got a reaction from 96andres96 in Lista desplegable de hojas
Estimado @96andres96, en resumen, lo que quieres es tener un menú donde te vaya mostrando las nuevas hojas:
algo así se me ocurre:
Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select End Sub Private Sub UserForm_Initialize() fil = 1 For s = 1 To Sheets.Count If Sheets(s).Name <> "Menu" Then Hoja1.Range("A" & fil) = Sheets(s).Name fil = fil + 1 End If Next uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To uf ComboBox1.AddItem Hoja1.Range("A" & i) Next Columns(1).Clear End Sub te adjunto el ejemplo y adaptalo en tu proyecto,
Saludos,
Libro1.xlsm
-
DiegoLG got a reaction from ramonvar in CONTRASEÑA AL EJECUTAR UN BOTON
Checa el archivo
Saludos,
Copia de PonerContraseñaBoton.xlsm
-
DiegoLG got a reaction from ramonvar in CONTRASEÑA AL EJECUTAR UN BOTON
Checa el archivo
Saludos,
Copia de PonerContraseñaBoton.xlsm
-
DiegoLG got a reaction from Silvia in DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019
Apenas empece a utilizar el UI Editor, la verdad no es muy complicado. lo trabaje en office 2013 y 2019, y no he tenido ningún problema.
Saludos,
-
DiegoLG reacted to Sergio in DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019
@diegolg, sobre la cinta de opciones existe documentación incluso cursos completos en Youtube. Yo estoy buscando (todavía sin éxito), referencias para modificar el backstage.
-
DiegoLG got a reaction from Silvia in DUDA SOBRE CUSTOM UI EDITOR PARA EXCEL 2019
Apenas empece a utilizar el UI Editor, la verdad no es muy complicado. lo trabaje en office 2013 y 2019, y no he tenido ningún problema.
Saludos,
-
DiegoLG got a reaction from Silvia in Sumar con criterio de bimestre y quincenas
Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente,
gracias a todos por el tiempo que me brindaron.
Saludos,
Tema solucionado.
-
DiegoLG reacted to John Jairo V in Sumar con criterio de bimestre y quincenas
¡Hola a todos!
Revisa el adjunto. ¡Bendiciones!
Libro1 (7).xlsx
-
DiegoLG got a reaction from Silvia in Sumar con criterio de bimestre y quincenas
Muchas gracias por la respuesta, una disculpa, desde el sábado no he podido checar el mensaje, mas tarde valido, y les cuento,
Saludos y excelente día.
-
DiegoLG reacted to Silvia in Sumar con criterio de bimestre y quincenas
hola Diego (y Luis Caballero)
adjunto otra posible solución
Saludos,
Silvia
sq.xlsx
-
DiegoLG reacted to Luis Caballero in Sumar con criterio de bimestre y quincenas
Hola, mira si esto te sirve
Libro1.xlsx
-
DiegoLG got a reaction from Excel_Táctico in Calculo Amortizacion
Checa el archivo,
=SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos,
Diego.
Copia de Prueba.xlsx
-
DiegoLG got a reaction from Excel_Táctico in Calculo Amortizacion
Checa el archivo,
=SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos,
Diego.
Copia de Prueba.xlsx
-
DiegoLG got a reaction from Excel_Táctico in Calculo Amortizacion
Checa el archivo,
=SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos,
Diego.
Copia de Prueba.xlsx
-
DiegoLG got a reaction from Jose BN in Contar datos unicos de un listbox sin duplicados y dejarlo en un textbox
No analizaste lo que hace el código verdad?
Solo es cambiar la columna:
Hoja3.Activate Range([H1], [H1].End(xlDown)).AdvancedFilter xlFilterCopy, , [J1], True: TextBox1 = WorksheetFunction.Subtotal(103, Columns("J")) - 1: Columns("J").Clear Hoja1.Activate Checa nuevamente el archivo,
Saludos,
Diego.
Copia de PRUEBA pRUEBA.xlsm
-
DiegoLG got a reaction from Jose BN in Contar datos unicos de un listbox sin duplicados y dejarlo en un textbox
De este código:
Reemplaza con este:
Hoja3.Activate Range([a1], [a1].End(xlDown)).AdvancedFilter xlFilterCopy, , [J1], True: TextBox1 = WorksheetFunction.Subtotal(103, Columns("J")) - 1: Columns("J").Clear Hoja1.Activate Saludos,
Diego...
Copia de PRUEBA pRUEBA.xlsm
-
DiegoLG got a reaction from Silvia in Color de la letra según valor
Utiliza formato condicional.
Saludos,
Diego.
-
DiegoLG got a reaction from Jose BN in Copiar datos de una hoja a otra si el valor es mayor a 0
Checa el archivo:
Sub Copia() Application.ScreenUpdating = False Dim Uf As String Dim Ul As Long Ul = Hoja2.Range("G" & Rows.Count).End(xlUp).Row + 2 Uf = Hoja1.Range("G" & Rows.Count).End(xlUp).Row Hoja1.Range("A2:N" & Uf).AutoFilter Field:=7, Criteria1:=">0" Hoja1.Range("A3:N10000").SpecialCells(xlCellTypeVisible).Copy Destination:=Hoja2.Cells(Ul, 1) Hoja1.Range("A3:N" & Uf).EntireRow.Delete Hoja1.Range("A2:N" & Uf).AutoFilter Application.ScreenUpdating = True End Sub
Copia de Consulta copiado.xlsm
-
DiegoLG got a reaction from Jose BN in Copiar datos de una hoja a otra si el valor es mayor a 0
Checa el archivo:
Sub Copia() Application.ScreenUpdating = False Dim Uf As String Dim Ul As Long Ul = Hoja2.Range("G" & Rows.Count).End(xlUp).Row + 2 Uf = Hoja1.Range("G" & Rows.Count).End(xlUp).Row Hoja1.Range("A2:N" & Uf).AutoFilter Field:=7, Criteria1:=">0" Hoja1.Range("A3:N10000").SpecialCells(xlCellTypeVisible).Copy Destination:=Hoja2.Cells(Ul, 1) Hoja1.Range("A3:N" & Uf).EntireRow.Delete Hoja1.Range("A2:N" & Uf).AutoFilter Application.ScreenUpdating = True End Sub
Copia de Consulta copiado.xlsm
-
DiegoLG got a reaction from Visor in Filtrar informacion!!!
Te dejo otra propuesta,
Sub FILTRAR() Application.ScreenUpdating = False Hoja1.Range("C1:C500").AutoFilter Field:=1, Criteria1:=Hoja2.Range("B2") Hoja2.Range("C1:F500").Clear: Hoja1.Range("C1:F500").Copy Destination:=Hoja2.Cells(1, 3) If Hoja2.Range("C2") = "" Then Hoja2.Range("C1:F500").Clear: MsgBox "DATO NO ENCONTRADO", vbCritical For Each Hoja In Sheets If Hoja.AutoFilterMode Then Hoja.AutoFilterMode = 0 Next End Sub Saludos Cordiales
Copia de FILTRO.xlsm
-
DiegoLG reacted to Antoni in copiar datos de cuadros de texto a una celda
Prueba esta macro:
Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub
-
DiegoLG got a reaction from Marcos14 in Cambiar color de TextBox
Te paso un ejemplo,
Espero haberte ayudado,
y si no es lo que estas buscando, sería interesante que adjuntes tu archivo.
Diego.
Libro4.xlsm