gegevensvalidatie

[SUVERMO]

Goedenavond

Bedoeling is om afhankelijk van de inhoud van een cel, er in andere cellen uit een andere lijst kan geselecteerd worden.
Manueel werkt het, kan dat met VBA
verdere info staat in bijgevoegd bestand

 

[JEC.]

Dit is hoe ik je vraag lees
Achter thisworkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  With ActiveSheet
   If .Index > 1 And .Index < 5 Then
    Sheets(1).Range("F1") = .Range("A1")
   End If
  End With
End Sub

 

[SUVERMO]

Beste

uw code werkte prima, is het mogelijk om er iets aan toe voegen indien de groene cellen A1 wijzigen.

Als C42 van blad BIB wordt geselecteerd moet de macro RIJ_INVOEGEN uitgevoerd worden.

verdere uitleg in bestand.

 

[VenA]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = Cells(Rows.Count, 3).End(xlUp).Offset(1).Address Then RIJ_INVOEGEN
End Sub

 

[SUVERMO]

Bedankt voor de reactie
het werkt
maar is nog niet wat ik bedoelde

de macro RIJ_INVOEGEN moet enkel starten als de cel in kolom C juist boven de rode rij wordt geselecteerd, dus ook als de cellen C37 tem C41 leeg zijn.

De 2 rijen onder de rode rij in kolom H bevatten een formule met als resultaat
Als C42 van blad BIB wordt geselecteerd moet de macro RIJ_INVOEGEN (ctrl+x) uitgevoerd worden.
C42 is de waarde van de cel REKENEN!A1 = LAATSTE_BIB.

Als de macro RIJ_INVOEGEN wordt uitgevoerd wordt het resultaat
Als C43 van blad BIB wordt geselecteerd moet de macro RIJ_INVOEGEN (ctrl+x) uitgevoerd worden.
C43 is de waarde van de cel REKENEN!A1 = LAATSTE_BIB.

kan de code dus aangepast worden naar de waarde van de cel REKENEN!A1 = LAATSTE_BIB.

 

[VenA]

Wat moet dit allemaal worden? Het voorbeeld is 1 groot kladblok waar jij misschien iets van snapt. <Ctrl> + x is knippen?

Gebruik target.address(0,0) als je naar "C42" of wat dan ook wil verwijzen.

 

[SUVERMO]

(ctrl+x) was de sneltoets voor de macro RIJ_INVOEGEN, in bijgevoegd bestand is de sneltoets voor de macro RIJ_INVOEGEN (ctrl+j)

de macro RIJ_INVOEGEN mag enkel starten als in het blad BIB in kolom C de cel juist boven de rode rij wordt geselecteerd, dus ook als de cellen C37 tem C41 geen waarde bevatten.

De code achter thisworkbook werkt prima, is het mogelijk om er iets aan toe voegen,
als de groene cel (TEST!A1) wordt gewijzigd moet de waarde gekopieerd worden naar de gele cel (SELECT_BIB!F1) van blad SELECT_BIB
als de groene cel (PROBEER!A1) wordt gewijzigd moet de waarde gekopieerd worden naar de gele cel (SELECT_BIB!F1) van blad SELECT_BIB
als de groene cel (OEFEN!A1) wordt gewijzigd moet de waarde gekopieerd worden naar de gele cel (SELECT_BIB!F1) van blad SELECT_BIB

 

[JEC.]

Is dit wat je bedoelt?

 

[SUVERMO]

Proficiat, het werkt perfect

hartelijk bedankt

 

[SUVERMO]

Goedenavond

toch nog een vraag

Is het mogelijk om wanneer men in de groene cel "REKENEN!I1" een andere waarde kiest de waarde van de cel "REKENEN!H1" geplaatst wordt in de cellen TEST!A1, PROBEER!A1 en OEFEN!A1. Dit met behoud van de aanwezige gegevensvalidatie.

 

[JEC.]

Deze achter tabblad "rekenen"?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I1" Then
 For i = 3 To 5
  Sheets(i).Cells(1, 1) = Target.Offset(, -1).Value
 Next
End If
End Sub

 

[SUVERMO]

heel hard bedankt
werkt prima
ga het proberen te gebruiken

groetjes