Victor Coello

Sub Macro1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "aqui poner donde quieres que se guarde el archivo.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False ' Select...

Si tienes los números primero y luego textos cambialos primero pon las letras y luego los números ese es el problema primero de izquierda a derecha se ponen los números y al final los nombre o viceversa ese es el problema

Sabes hacer los Vlookup eso puede servirte en mucho Sino avisame para ayudarte

Es muy fácil amigo te paso los códigos Sub h() Range("A1").Select VUELTA: If Selection.Text = "#N/A" Then Selection = "No hay datos" End If GoTo VUELTA End Sub En rango a1 cambia al rango primero donde empezaría y es todo

Sub H() MsgBox "Bienvenido " & Application.UserName End Sub Seria algo asi pero en macro anexa un modulo

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

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