Trucker
Hoi
Ja, dat truckje had ik al door, maar ik krijg een scherm met andere knoppen erbij.
knop OK Annuleren en Bewerken.
Opzich geeft dat niet, maar wat bedoel je precies met "macronaam" toewijzen?
De macro naam 'Familie adres - kopie.xls'!Colunms_visib Waar moet ik die dan in wijzigen?
Heb er andere optie's onderstaan dan jou voorbeeld.
Ik zie geen tabblad staan met bijvoorbeeld adreslijst.
Heb bv AutoFitAll, AutoFitMergedCellRowHeight, enz., enz.
Ik kan wel met de knop bewerken de "naam" wijzigen van het tabblad.
Maar dan wijzigt dus ook die andere tab!
Voorbeeld als hier onder, wijzig ik de "Familie adres - kaart" naar adreslijst, wijzigt de andere tab pijl dus ook.
End Sub
Sub van_AtoZ_last()
[A4:AZ100].Sort [A2], xlAscending
End Sub
Sub van_ZtotA_last()
[A4:AZ100].Sort [A2], xlDescending
End Sub
Sub Colunms_going()
With Sheets("Familie adres - kaart")
.EnableOutlining = True
.Columns("H:AB").Hidden = True
End With
End Sub
Sub Colunms_visib()
With Sheets("Familie adres - kaart")
.EnableOutlining = True
.Columns("H:AB").Hidden = False
End With
End Sub
Sub Colunms_going_lidgeld()
With Sheets("Familie adres - kaart")
.EnableOutlining = True
.Columns("AC:BA").Hidden = True
End With
End Sub
Sub Colunms_visib_lidgeld()
With Sheets("Familie adres - kaart")
.EnableOutlining = True
.Columns("AC:BA").Hidden = False
End With
End Sub
Sub nieuw()
Application.CutCopyMode = True
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Range("A1").Select
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
Range("A1").Select
[B5:J23].ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Heb nog geprobeerd om een voorbeeld mee te sturen, maar dat lukt niet.
Kan printscreen maken naar word, maar dan is het bestand weer te groot voor op deze forumsite.
Groet,
Cees.
