vba kodu hakkında yardım

[pcykoo34]

merhaba internetten bir kod buldum ama yardıma ihtiyacım var, 3E stununu bıgbag yazdıgım zaman 4G stununa 4N de yazan rakam gelsin veya 4E stununa çuval yazdığımda 4G stununa 5N de yazan rakam gelmesi laızm bu kodla oldu fakat bu işlemi tek bir sutün için değilde yukardan aşşağıda tüm sutün için geçerli olması lazım. yardımcı olucak varmı ?

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Cells(3, "E")
Case "BIGBAG"
Cells(3, "G") = Cells(4, "N")
Case "ÇUVAL"
Cells(4, "G") = Cells(5, "N")
End Select
End Sub

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
sat = Target.Row
süt = Target.Column
If sat >= 1 And süt = 5 And Cells(sat, süt) <> "" Then
If Cells(sat, süt) = "BIGBAG" Then
Cells(sat, "g") = Cells(4, "n")
End If

If Cells(sat, süt) = "ÇUVAL" Then
Cells(sat, "g") = Cells(5, "n")
End If
End If
End Sub

Ekleyip deneyin.
İyi çalışmalar.

 

[pcykoo34]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
sat = Target.Row
süt = Target.Column
If sat >= 1 And süt = 5 And Cells(sat, süt) <> "" Then
If Cells(sat, süt) = "BIGBAG" Then
Cells(sat, "g") = Cells(4, "n")
End If

If Cells(sat, süt) = "ÇUVAL" Then
Cells(sat, "g") = Cells(5, "n")
End If
End If
End Sub

Ekleyip deneyin.
İyi çalışmalar.

Çok teşekkür ederim oldu