Excell Visual Basic vraag If then else

[gambino187]

Hoi,

Ik heb een vraagje.
Ik wil dat cell A1 waar de dag Maandag staat bepalend is voor de formule If then else is.
Als er Maandag staat moet de macro een ander bestand openen en de een aantal kolommen kopieren en plakken.

Ik heb de volgende code nu, maar de macro gaat ook door als er Dinsdag staat...?

Sheets("Maandag").Select
Range("A1").Select

If Range("A1") = "Maandag" Then
Range("A6:A17,T6:T17").Select
Range("T6").Activate
Selection.Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\pvxpk\Bureaublad\Tussenstand FCR.xls"
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Else: End If
Range("A25").Select

Kan iemand aub aangeven wat ik verkeerd doe?

 

[snb]

Je gebruikt teveel code.

If lcase(Sheets("Maandag").Range("A1").Text) = "maandag" Then
  Range("T6").Copy
  Workbooks.Open "C:\Documents and Settings\pvxpk\Bureaublad\Tussenstand FCR.xls"
  ActiveSheet.Paste
  Application.CutCopyMode = False
  ActiveWorkbook.Close true
End If

 

[gambino187]

Re:

Je gebruikt teveel code.

If lcase(Sheets("Maandag").Range("A1").Text) = "maandag" Then
  Range("T6").Copy
  Workbooks.Open "C:\Documents and Settings\pvxpk\Bureaublad\Tussenstand FCR.xls"
  ActiveSheet.Paste
  Application.CutCopyMode = False
  ActiveWorkbook.Close true
End If

Bedankt voor je input, maar het werkt niet.
Ik heb in cell A1 dinsdag gezet en de macro gaat door terwijl deze dan moet stoppen omdat er geen maandag staat.

Heb je nog een suggestie?(Ik snap er echt niets van, de code is goed volgens mij...)

 

[snb]

de macro gaat door

kan niet kloppen.
Zet de code waar mijn suggestie onderdeel van is eens hier neer, want de fout zit op een andere plaats.

 

[gambino187]

kan niet kloppen.
Zet de code waar mijn suggestie onderdeel van is eens hier neer, want de fout zit op een andere plaats.

dit is de volledige code:

Eerst maakt de macro de waardes hard, daarna moet de macro een bepaalde range kopieren en plakken in FCRtussenstand alleen als cel A1 overéénkomt met hetgeen is opgegeven. Dus als in cel A1 maandag staat moet de macro doorgaan(in dit geval) staat er dinsdag dan moet de macro afgebroken worden.

Sub Waardehardmaken()

Range("A6:AC25").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 1
Selection.Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A25").Select

TussenstandFCR

Sheets("Maandag").Select
Range("A1").Select

If Range("A1") = "'!Maandag" Then
Range("A6:A17,T6:T17").Select
Range("T6").Activate
Selection.Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\pvxpk\Bureaublad\Tussenstand FCR.xls"
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Else: End If

 

[Relleboer]

Sub Waardehardmaken()

Range("A6:AC25").Copy
Range("a6").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False


If Sheets("Maandag").Range("A1").value= "Maandag" Then
Sheets("Maandag").Range("A6:A17,T6:T17").Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\pvxpk\Bureaublad\Tussenstand FCR.xls"
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Close True
Else: End If
end sub

 

[gambino187]

Re:

Sub Waardehardmaken()

Range("A6:AC25").Copy
Range("a6").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False


If Sheets("Maandag").Range("A1").value= "Maandag" Then
Sheets("Maandag").Range("A6:A17,T6:T17").Copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\pvxpk\Bureaublad\Tussenstand FCR.xls"
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Close True
Else: End If
end sub

TOP het werkt!
Bedankt!

 

[Relleboer]

Nu de vraag nog op opgelost zetten aub