Richard nog bedankt voor je hulp bij mijn vorige probleem
ik heb nu nog een nieuw probleem wat er misschien wel een beetje op lijkt.
misschien kan iemand mij hierbij ook helpen.
het gaat nogsteeds om het zelfde excell bestand waar ik een kolom aan toegevoegd heb
een nieuw contract invoeren en andere toepassingen werken nu helemaal
maarhet probleem is om een contract te verwijderen.
dit is de macro zoals ie er nu instaat
Sub wegschrijven()
'macro om vervallen nabetalingen weg te schrijven naar het archief bestand.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Answer As Integer
Answer = MsgBox("Zijn alle contracten die u wilt wegschrijven geselecteerd?", vbYesNo, "")
If Answer = vbYes Then
Selection.Copy
Sheets("bestand (ex)").Select
Range("A8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("bestand (euro)").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Else
Exit Sub
End If
End Sub
misschien ligt het weer aan de verwijzingen a1 en a8
maar dta weet ik niet ckr
diet is de macro zo als die in het originele bestand stond in de nieuwe versie heb ik
een kolom a toegevoeg,
ik hoop dat ik het een beetje duidelijk heb kunnen verwoorden
zo niet zal ik dat als nog proberen te doen.
Berend
ik heb nu nog een nieuw probleem wat er misschien wel een beetje op lijkt.
misschien kan iemand mij hierbij ook helpen.
het gaat nogsteeds om het zelfde excell bestand waar ik een kolom aan toegevoegd heb
een nieuw contract invoeren en andere toepassingen werken nu helemaal
maarhet probleem is om een contract te verwijderen.
dit is de macro zoals ie er nu instaat
Sub wegschrijven()
'macro om vervallen nabetalingen weg te schrijven naar het archief bestand.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Answer As Integer
Answer = MsgBox("Zijn alle contracten die u wilt wegschrijven geselecteerd?", vbYesNo, "")
If Answer = vbYes Then
Selection.Copy
Sheets("bestand (ex)").Select
Range("A8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("bestand (euro)").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Else
Exit Sub
End If
End Sub
misschien ligt het weer aan de verwijzingen a1 en a8
maar dta weet ik niet ckr
diet is de macro zo als die in het originele bestand stond in de nieuwe versie heb ik
een kolom a toegevoeg,
ik hoop dat ik het een beetje duidelijk heb kunnen verwoorden
zo niet zal ik dat als nog proberen te doen.
Berend