Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: range uitbreiden vba code  (gelezen 2784 keer)

0 leden en 1 gast bekijken dit topic.

Offline romilied

  • Nieuw lid
  • Berichten: 2
  • Oplossing.be
range uitbreiden vba code
« Gepost op: 03 september 2015, 11:30:20 »
Hallo
 
ik heb een vraag waar ik maar niet uit komt.
 
ik heb een code gevonden waar je een getal plus of min invoert en en dat het in een andere cel
het getal erbij komt of er af gaat.
dit werkt prima, alleen krijg ik het niet voor elkaar om dit voor de hele kolom te doen.
 
De eerste macro moet in de werkblad-code
de tweede in ThisWorkbook
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Blad1").Range("G4").ClearContents
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("G4")) Is Nothing Then
  Range("F4") = Range("F4") + Range("G4")
   Range("G4").ClearContents
End If
End Sub
 
ik zou dit bv willen uitbreiden van F4 t/m F1000
en G4 t/m G1000.
 
ik had eerst de code heel veel keer gkopieerd maar dan krijg je een fout melding.
 
alvast hartelijk bedankt voor uw reacties
Romilied

Offline romilied

  • Nieuw lid
  • Berichten: 2
  • Oplossing.be
Re: range uitbreiden vba code
« Reactie #1 Gepost op: 03 september 2015, 16:17:42 »
al gevonden

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim tr As Integer
'hier telt hij de waarde van B en C op en maakt B terug leeg
 
    If Not Intersect(Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
        tr = Target.Row
        Range("F" & tr).Value = Range("F" & tr).Value + Range("G" & tr).Value
        Target.ClearContents
    End If
     
 ' datum laatste aanpassing in D zetten
   Application.EnableEvents = False
    With Target
      If .Column = 3 And Not Target.Address(0, 0) = "G1" And Not IsEmpty(Target) Then
        .Offset(, 1) = Date
     
      End If
    End With
  Application.EnableEvents = True
   
 
 
  End Sub
 
 
 

Romilied

 


www.combell.com