Victor Coello

Te recomiendo que separes en diferente módulos, ya que aveces que pones todo en un modulo suelen mandar error, NO por la cantidad de códigos sino por que tienes dos nombre higuales como por ejemplo cuando le pones GOTO Salir Y si tienes dos salir ahí...

If range ("d4")= ("f4") then range ("e7:f8").select selection.copy range ("c7").select activesheet.paste else end if end sub Algo parecido a esto

Dame mas información

Sub CONTROLSALDO_CLIENTES() Range("i13").Select Selection.Copy Range("j11").Select If Selection.Value Then Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Select ActiveSheet.Paste End If End Sub

Private Sub ComboBox1_Click() ComboBox1. Clear ComboBox1. AddItem "Mensual" ComboBox1. AddItem "Quincenal" ComboBox1. AddItem "10 Días" End Sub Private Sub ComboBox1_Change() If ComboBox1.Value = "Mensual" Then 'el resto de tu rutina End Sub Aver...

sub CONTROLSALDO_CLIENTES() Range("j11").Select If Selection = Value Then ActiveCell.Offset(1, 0).Select 'se busca la primer fila libre. filalibre = Range("J65536").End(xlUp).Row + 1 'copiamos datos fijos ajustando nro col Cells(filalibre, 10) =...

Que es lo que ocupas si me das mas detalles podría ayudarte

Sub elimina() Range("c2").Select Do While ActiveCell.Value <> "" conteo = Application.CountIf(Range("c2:c1000"), ActiveCell) If conteo > 1 Then Selection.EntireRow.Delete Else Selection.Offset(1).Select End If Loop End Sub Esto te elimina duplicados...

Quieres ocultar los 0 te ayudaría esta formula =SI(C2=0,"",SI(C2=0,"","")) Solo le cambias el rango el rango seria el c2

Sub elimina() Range("c2").Select Do While ActiveCell.Value <> "" conteo = Application.CountIf(Range("c2:c1000"), ActiveCell) If conteo > 1 Then Selection.EntireRow.Delete Else Selection.Offset(1).Select End If Loop End Sub Creo que esto es lo que...