mardi 27 janvier 2015
VBA macro cellen selecteren met een waarde zonder formule
Posted on 03:03 by Unknown
Hoi allemaal,
Ik moet een sheet maken met daar in alle extra bestellingen, die extra bestellingen wil ik met een macro uit verschillende werkbladen halen.
Nu lukt mij het kopieren en plakken onder elkaar met een macro, maar de macro selecteerd ook cellen waar alleen een formule instaat en geen waarde.
Hierdoor komen er heel veel wit regels in de extra order sheet. de volgende macro gebruik ik op het moment hier gaat het kopieren en plakken goed maar het selecteren van de goede cellen dus niet.
weet iemand hoe ik de macro zo kan maken dat die niet de cellen selecteerd met een formule maar zonder waarde, maar alleen de cellen met een waarde.
alvast supper bedankt!
Sub Bijwerken()
'henk'
Sheets("CM").Select
Range("C13:F13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("H13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("L13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'piet'
Sheets("CM").Select
Range("C13:F13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("B4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("M13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("F4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("Q13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("G4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Ik moet een sheet maken met daar in alle extra bestellingen, die extra bestellingen wil ik met een macro uit verschillende werkbladen halen.
Nu lukt mij het kopieren en plakken onder elkaar met een macro, maar de macro selecteerd ook cellen waar alleen een formule instaat en geen waarde.
Hierdoor komen er heel veel wit regels in de extra order sheet. de volgende macro gebruik ik op het moment hier gaat het kopieren en plakken goed maar het selecteren van de goede cellen dus niet.
weet iemand hoe ik de macro zo kan maken dat die niet de cellen selecteerd met een formule maar zonder waarde, maar alleen de cellen met een waarde.
alvast supper bedankt!
Sub Bijwerken()
'henk'
Sheets("CM").Select
Range("C13:F13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("H13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("L13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'piet'
Sheets("CM").Select
Range("C13:F13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("B4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("M13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("F4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Supply chain").Select
Range("Q13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Extra afname import blad").Select
Range("G4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
VBA macro cellen selecteren met een waarde zonder formule
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire