Dag beste,
Ik kan mij aansluiten bij mensen die zeggen dit forum maakt me blij. Mensen zoals Roncancio, Warme bakkertje, Ginger, Wigi, snb enz....waar elk probleem moet buigen voor de knappe breinen. Nogmaals hartelijk dank.:thumb::thumb::thumb:
Zoals de titel al zegt heb ik een code die traag loopt. Is het mogelijk de code te versnellen?
Grtjs Vio
Sub Overzetten()
Range("C17:AF25").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Range("C27:AF28").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Range("C30:AF30").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Set Act = Worksheets("schoolzaken").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("schoolzaken").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C17").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("Luizen").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("Luizen").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C18").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("schoolzaken").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("schoolzaken").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C19").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("zwemm. sch").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("zwemm. sch").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C20").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("therapie overz.").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("therapie overz.").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C21").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("Wknd bezoek").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("Wknd bezoek").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C22").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("activ. overz.").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("activ. overz.").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C23").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("telefoon").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("telefoon").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C24").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("individueel").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("individueel").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C25").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("bad").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("bad").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C27").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("slaapritueel").Range("B7:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("slaapritueel").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C28").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("extra kwartier").Range("B7:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("extra kwartier").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C30").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Range("O14:T14").Select
ActiveCell.FormulaR1C1 = "=NOW()"
End Sub
Ik kan mij aansluiten bij mensen die zeggen dit forum maakt me blij. Mensen zoals Roncancio, Warme bakkertje, Ginger, Wigi, snb enz....waar elk probleem moet buigen voor de knappe breinen. Nogmaals hartelijk dank.:thumb::thumb::thumb:
Zoals de titel al zegt heb ik een code die traag loopt. Is het mogelijk de code te versnellen?
Grtjs Vio
Sub Overzetten()
Range("C17:AF25").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Range("C27:AF28").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Range("C30:AF30").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Selection.ClearComments
Set Act = Worksheets("schoolzaken").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("schoolzaken").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C17").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("Luizen").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("Luizen").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C18").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("schoolzaken").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("schoolzaken").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C19").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("zwemm. sch").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("zwemm. sch").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C20").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("therapie overz.").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("therapie overz.").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C21").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("Wknd bezoek").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("Wknd bezoek").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C22").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("activ. overz.").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("activ. overz.").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C23").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("telefoon").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("telefoon").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C24").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("individueel").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("individueel").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C25").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("bad").Range("B8:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("bad").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C27").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("slaapritueel").Range("B7:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("slaapritueel").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C28").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set Act = Worksheets("extra kwartier").Range("B7:B1000").Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
Worksheets("extra kwartier").Range("C" & Act.Row & ":AF" & Act.Row).Copy
Worksheets("planning").Range("C30").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Range("O14:T14").Select
ActiveCell.FormulaR1C1 = "=NOW()"
End Sub