carlos arana

------------------------ Hola Necesito su ayuda En la imagen de arriba tengo varias filas según un filtro Quiero que las filas con las mismas fechas en la columna 2 se coloreen con el mismo color O sea que si al filtrar me aparecen 10 fechas...

----------- Hola Podrian ayudarme Necesito un codigo para convertir numero en fecha los datos en estan en varias hojas, y luego hago un filtro para ver ciertos datos, los datos del filtro se pasan a una hoja llamada filtros y lo que pasa es que...

Macro para modificar registro en 2 hojas diferentes Hola Quiero modificar registro en 2 hojas diferentes El asunto es que tengo un código que agrega el registro la primera vez en en las 2 hojas pero cuando quiero modificarlo no puedo, en la hoja2 si...

Macro para eliminar filas múltiples en 2 hojas diferentes Hola Quisiera eliminar filas repetidas en la misma hoja Este código solo elimina 1 Cells(fCliente, 1).Select suministro = Cells(fCliente, 1).Value ActiveCell.EntireRow.Delete If...

Macro para eliminar fila en 2 hojas diferentes Hola Buen día Solicito su ayuda Quiero eliminar filas en dos hojas dirferentes Más o menos así En hoja2 tengo el registro Bolsas Negras Grandes y en hoja20 esta el mismo registro con un combobox en un...

Podrian ayudarme a resolver esto Tengo un archivo que al guardarlo me da error error en tiempo de ejecucion 1004, error en metodo save de objeto workbook y me selecciona esto ThisWorkbook. Save El codigo completo donde esta eso es asi: Private Sub...

Como convierto fecha ingresada como texto a fecha Los datos estan de la columna A hasta la H y la columna de las fechas esta en B entonces lo que deseo es ordenar por fecha ascendentemente pero no me funciona porque las fechas estan en texto Lo que...

Podrian ayudarme con esto Quiero saber cuantas veces se repite un item en un rango de fecha Uso esta macro Private Sub filtrar_click() Dim fec1 As Date, fec2 As Date Dim Fil As Integer Dim fila As Integer Application.ScreenUpdating = False...

Tengo esta macro items = Hoja12.Range("A" & Rows.Count).End(xlUp).Row For i = 3 To items If LCase(Hoja12.Cells(i, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem Hoja12.Cells(i, 2) Me.ListBox1.List(Me.ListBox1.ListCount...

Tengo esta macro Y me sale ese error en la fila en negrita (la tercera fila) ¿Por qué? If CheckBox7.Value = True And CheckBox1.Value = True Then For Fila = 3 To 150 If Hoja2.Cells(Fila, 1) = Hoja12.Cells(Me.TextBox1.Text, 1) Then Exis =...