mardi 30 décembre 2014
Probleem met vba
Posted on 14:06 by Unknown
Hoi,
Ik heb de vba aangepast en alles werkt correct behalve dat hij niet wist als ik op de andere pagina het weg doe.
Bij het eerste doet hij het ik haal de x weg dan doet hij de personen ook weg in in eerste rij.
Bij de 2de zet hij de personen in kolom 3 dit gaat perfect maar hij wist ze niet als ik de x weg doe wat moet er nog bij komen of veranderen dit vind ik niet.
If Not Intersect(Target, Columns(2)) Is Nothing Then 'niets veranderd in kolom 6 = stoppen ( deze kolom altijd aanpassen )
Select Case Target.Value 'wat staat er in de cel
Case "x": Sheets("Opbouw").Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target.Offset(, -1): GoTo DelVast3 'niet vergeten de - ofset 1 kleiner te zetten dan target collums
Case "o": Sheets("Blad4").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2).Value = Array(Target.Offset(, -1), Target.Offset(, 1)): GoTo DelRot3 '
Case Else: bBeide3 = True: GoTo DelVast3 'schrappen in vast en rotatie
End Select
DelVast3:
Set c3 = Sheets("Blad4").Columns(1).Find(Target.Offset(, -1), , xlValues, xlWhole) 'zoek nam in 1e kolom vaste
If Not c3 Is Nothing Then
c3.Resize(, 2).Delete shift:=xlUp 'gevonden, dan wis cel en de rest 1 omhoog
End If
If Not bBeide3 Then Exit Sub
DelRot3:
Set c3 = Sheets("Opbouw").Columns(1).Find(Target.Offset(, -1), , xlValues, xlWhole)
If Not c3 Is Nothing Then
c3.Delete shift:=xlUp
End If
End If
If Not Intersect(Target, Columns(3)) Is Nothing Then 'niets veranderd in kolom 3 = stoppen ( deze kolom altijd aanpassen )
Select Case Target.Value 'wat staat er in de cel
Case "x": Sheets("Opbouw").Cells(Rows.Count, 3).End(xlUp).Offset(1) = Target.Offset(, -2): GoTo DelVast4 'niet vergeten de - ofset 1 kleiner te zetten dan target collums
Case "o": Sheets("Blad4").Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 2).Value = Array(Target.Offset(, -2), Target.Offset(, 3)): GoTo DelRot4 '
Case Else: bBeide3 = True: GoTo DelVast4 'schrappen
End Select
DelVast4:
Set c4 = Sheets("Blad4").Columns(1).Find(Target.Offset(, -2), , xlValues, xlWhole) 'zoek nam in 1e kolom vaste
If Not c4 Is Nothing Then
c4.Resize(, 2).Delete shift:=xlUp 'gevonden, dan wis cel en de rest 1 omhoog
End If
If Not bBeide4 Then Exit Sub
DelRot4:
Set c4 = Sheets("Opbouw").Columns(1).Find(Target.Offset(, -2), , xlValues, xlWhole)
If Not c4 Is Nothing Then
c4.Delete shift:=xlUp
End If
End If
End Sub
Mvg Bigfoot
Ik heb de vba aangepast en alles werkt correct behalve dat hij niet wist als ik op de andere pagina het weg doe.
Bij het eerste doet hij het ik haal de x weg dan doet hij de personen ook weg in in eerste rij.
Bij de 2de zet hij de personen in kolom 3 dit gaat perfect maar hij wist ze niet als ik de x weg doe wat moet er nog bij komen of veranderen dit vind ik niet.
If Not Intersect(Target, Columns(2)) Is Nothing Then 'niets veranderd in kolom 6 = stoppen ( deze kolom altijd aanpassen )
Select Case Target.Value 'wat staat er in de cel
Case "x": Sheets("Opbouw").Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target.Offset(, -1): GoTo DelVast3 'niet vergeten de - ofset 1 kleiner te zetten dan target collums
Case "o": Sheets("Blad4").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2).Value = Array(Target.Offset(, -1), Target.Offset(, 1)): GoTo DelRot3 '
Case Else: bBeide3 = True: GoTo DelVast3 'schrappen in vast en rotatie
End Select
DelVast3:
Set c3 = Sheets("Blad4").Columns(1).Find(Target.Offset(, -1), , xlValues, xlWhole) 'zoek nam in 1e kolom vaste
If Not c3 Is Nothing Then
c3.Resize(, 2).Delete shift:=xlUp 'gevonden, dan wis cel en de rest 1 omhoog
End If
If Not bBeide3 Then Exit Sub
DelRot3:
Set c3 = Sheets("Opbouw").Columns(1).Find(Target.Offset(, -1), , xlValues, xlWhole)
If Not c3 Is Nothing Then
c3.Delete shift:=xlUp
End If
End If
If Not Intersect(Target, Columns(3)) Is Nothing Then 'niets veranderd in kolom 3 = stoppen ( deze kolom altijd aanpassen )
Select Case Target.Value 'wat staat er in de cel
Case "x": Sheets("Opbouw").Cells(Rows.Count, 3).End(xlUp).Offset(1) = Target.Offset(, -2): GoTo DelVast4 'niet vergeten de - ofset 1 kleiner te zetten dan target collums
Case "o": Sheets("Blad4").Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 2).Value = Array(Target.Offset(, -2), Target.Offset(, 3)): GoTo DelRot4 '
Case Else: bBeide3 = True: GoTo DelVast4 'schrappen
End Select
DelVast4:
Set c4 = Sheets("Blad4").Columns(1).Find(Target.Offset(, -2), , xlValues, xlWhole) 'zoek nam in 1e kolom vaste
If Not c4 Is Nothing Then
c4.Resize(, 2).Delete shift:=xlUp 'gevonden, dan wis cel en de rest 1 omhoog
End If
If Not bBeide4 Then Exit Sub
DelRot4:
Set c4 = Sheets("Opbouw").Columns(1).Find(Target.Offset(, -2), , xlValues, xlWhole)
If Not c4 Is Nothing Then
c4.Delete shift:=xlUp
End If
End If
End Sub
Mvg Bigfoot
Probleem met vba
Categories: Probleem met vba
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire