aSeik01

Hola perdon no pegue todo mi codigo, no lo copie bien es este al principio: Sub MacroG() Application.ScreenUpdating = False Mensaje = "No se pueden guardar los datos aún hay celdas vacías:" 'Recorremos las celdas For i = 1 To 6 If Sheets("INGRESO").Range("DATO" & i).Value = "" Then Valor = Sheets("INGRESO").Range("DATO" & i).AddressLocal Valor1 = Valor1 & VBA.vbNewLine & Valor End If Next i If Not Valor1 = "" Then MsgBox Mensaje & VBA.vbNewLine & Valor1, vbExclamation, "Ingreso de Productos" Else End If Donde cada celda le cambie el cuadro de nombre C4= DATO1 C5= DATO2 C6= DATO3 C7= DATO4 F4= DATO5 F5= DATO6 asi estoy seleccionando las celdas Comparto mi macro que esta en la nube https://files.fm/u/uzb68tetng

Hola me podrian ayudar a corregir esta macro, ya que que he puesto la condicion que no se ejecute por si hay valores vacios en 6 celdas y siempre se ejecuta, comparto codigo: Selection.ClearContents Range("C5").Select Selection.ClearContents Selection.ClearContents Range("C7").Select Selection.ClearContents Selection.ClearContents Range("C8").Select Selection.ClearContents Range("C23").Select Selection.ClearContents Range("C24").Select Selection.ClearContents Range("C39").Select Selection.ClearContents Selection.ClearContents Selection.ClearContents Range("C40").Select Selection.ClearContents Range("C55").Select Selection.ClearContents Range("C56").Select Selection.ClearContents Range("C71").Select Selection.ClearContents Selection.ClearContents Range("C72").Select Selection.ClearContents Range("C87").Select Selection.ClearContents Range("C88").Select Selection.ClearContents Range("C103").Select Selection.ClearContents Range("C104").Select Selection.ClearContents Range("C119").Select Selection.ClearContents Range("C120").Select Selection.ClearContents Range("C135").Select Selection.ClearContents Range("C136").Select Selection.ClearContents Range("C151").Select Selection.ClearContents Range("C152").Select Selection.ClearContents Range("A1").Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlToLeft).Select Range("C4").Select End Sub

Hola quisiera solucionar un problema ya que tengo 2 hojas de excel. En la "hoja1 columna A" tengo los datos con filtro y hago 2 eventos siempre que son ordenarlos por columna e inserto filas. Pero al hacerlo en la "hoja2 columna A" donde tengo mis formulas fijas con $ que estan haciendo referencia a la hoja antes mencionada se me desordenan los datos. Entiendo que al fijar la formula con $ e inserto filas en la hoja1 ayuda, pero no cuando ordeno los datos. =hoja1!$A$1 Como hacer que se fijen y no cambien mis formulas?