Als kolom C waarde "1" bevat dan doorgaan met macro

[Ralf1991]

Beste helper,

Waar ik naar op zoek ben is het volgende: Wanneer ergens in kolom C de waarde "1" staat dan mag de code verder gaan met onderstaande.

If kolom C bevat waarde "1" dan:
Range("B2:B20000").Select
Selection.Copy
Sheets("Containers to be added").Select
Range("A2").Select
ActiveSheet.Paste
Else
Range("I2").Select
MsgBox ("No new containers to be added")

Bedankt!

 

[JeanPaul28]

dat doe je in een macro event , wanneer er een cel in C:C veranderd word in getal 1 dan word de macro uitgevoerd

 

[Ralf1991]

Jean-Paul

Waar ik naar op zoek ben is een VBA code die kolom C:C checked op waarde "1". Wanneer kolom C:C een of meerdere cellen met waarde "1" bevat dan moet ie kopieren en plakken. Wanneer kolom C:C geen waarde "1" bevat dan MsgBox.

 

[edmoor]

Zo bijvoorbeeld:

Sub ZoekNaar_1()
    On Error Resume Next
    If Range("C:C").Find("1", lookat:=xlWhole) <> "" Then
        MsgBox "Gevonden"
    End If
    On Error GoTo 0
End Sub

 

[Ralf1991]

Hi Jean-Paul,

Bedankt voor je bericht, het werkt!

Nogmaals bedankt!