Sebas Torres

¿No entendí bien el tema de donde sacas los datos y los códigos pero algo así es lo que tu quieres hacer? Al ingresar datos por segunda vez, ¿se corra 10 columnas para no sobre escribir? De ser esto lo que necesitas, te dejo el link de descarga de...

Pero en tu macro no estás aplicando ningún formato ... el formato que usa al insertar los datos lo tienes puesto en la columna G ve a formato, y selecciona el que te cumpla con tus necesidades

Si hablas de excel este te servirá Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Cel As Object If Target.Column <> 3 Then Exit Sub For Each Cel In Range("C1:C1000") If Cel.Value = Range("J1").Value Then Cel.Interior.Color =...

¿Esto es lo que tu quieres hacer? Pero en diferentes hojas Si es eso solo dale un nombre al rango de datos y utiliza la fórmula "BuscarV" o "ConsultaV" depende de la version de office Para dirijirla a otra hoja tienes que agregar el nombre de la hoja...

Puedes simplemente agregar al principio de la macro "On error resume next" y si encuentra un error saltara a la siguiente línea si quieres saltar una linea especifica pon "On error resume next" antes de la linea y "Goto 0" donde termina para que solo...

Pero si tu le indicas a la celda donde quieres la suma "=SUMA(B1:B50)" aunques tengas espacios en blanco va a sumar todo lo que encuentre dentro de B1 hasta B50 ¿? ¿? Es eso lo que quieres hacer yo no entendí bien...

Algo así te ocultaría las ultimas 4 columnas con datos de la fila 8 Sub OculCol() UC = Cells(8, 1).End(xlToRight).Column Cells(8, UC).EntireColumn.Hidden = True Cells(8, UC).Offset(0, -1). EntireColumn.Hidden = True Cells(8, UC).Offset(0, -2)....

Jajaj que dilema tienes con Dante, yo creo que eh entendido .. déjame intentar xD jeje ¿Tu quieres comparar los datos de la columna A de la Hoja 1 con los datos de la columna D de la Hoja 2 fila por fila estoy en lo correcto? Si son iguales que se el...

Buenos días fredy rodriguez prueba si con un for each hace lo que tu necesitas Sub ComparPintaR() Dim XcX, XcelX As Range For Each XcX In Range("DW2:DZ2") If Not XcX Is Nothing Then For Each XcelX In Range("EK2:EZ2") If XcX = XcelX Then...

No se a quien va dirigida la pregunta pero si en tu macro seleccionas la hoja no podrás usarla a menos que este visible Por al comienzo de tu macro Sheets("NombreHoja").visible=true y al final de tu macro Sheets("NombreHoja"). Visible=False Recuerda...