kod ile hücreye "yeni" yazdırma

[deleterx]

Merhabalarlar "işlemler" sayfasında b sütununa herhangi bir hücreye "yeni" yazdığımda E sütununda ki aynı hücreye de "yeni üye" yazmasını istiyorum. Bunu kod ile nasıl yapabilirim.

örnek b3 e yeni yazdığımda e3 hücresine "yeni üye" yazsın.

Tesekkur ediyorum şimdiden.

 

[turist]

Sayfa Kodu'na uygulayıp, deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "yeni" Then
Target.Offset(0, 3) = "yeni üye"
End If
End If
End Sub

 

[deleterx]

Sayfa Kodu'na uygulayıp, deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value = "yeni" Then
Target.Offset(0, 3) = "yeni üye"
End If
End If
End Sub

Yukardaki hatayı verdi.

 

[Ömer BARAN]

Merhaba. Sayın turist çevrimiçi değil.

Gönderilen kod'da sorun yok.

Sanırım cevaptaki "Sayfa Kodu"na kısmı anlaşılmamış.
Alt taraftan ilgili sayfanın adına fareyla sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve
açılan ekranın sağ tarafındaki boş alana kod'u yapıştırıp deneyin.
.

 

[deleterx]

Merhaba. Sayın turist çevrimiçi değil.

Gönderilen kod'da sorun yok.

Sanırım cevaptaki "Sayfa Kodu"na kısmı anlaşılmamış.
Alt taraftan ilgili sayfanın adına fareyla sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve
açılan ekranın sağ tarafındaki boş alana kod'u yapıştırıp deneyin.
.

Merhaba

Aynı sayfada Private Sub Worksheet_Change(ByVal Target As Range) ile başlayan başka bir kod daha var.Ondan kaynaklanmış olabilirmi?

 

[Ömer BARAN]

Evet sadece bir tane olmalı. Şu an bilgisayar başında değilim.
Diğer change kod'unu paylaşırsanız tek başlıkta birleştirme yapılabilir.

 

[deleterx]

Evet sadece bir tane olmalı. Şu an bilgisayar başında değilim.
Diğer change kod'unu paylaşırsanız tek başlıkta birleştirme yapılabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Cells(Target.Row, "D") = "" Then Exit Sub
    If Target.Column = 4 And Cells(Target.Row, "C") = "" Then Exit Sub
    If Cells(Target.Row, 4) <> "ZİRAAT" And Cells(Target.Row, 4) <> "GARANTİ" _
         And Cells(Target.Row, 4) <> "İŞBANKASI" And Cells(Target.Row, 4) <> "FİNANSBANK" _
         And Cells(Target.Row, 4) <> "VAKIFBANK" And Cells(Target.Row, 4) <> "YAPI KREDİ YENİ " _
         And Cells(Target.Row, 4) <> "AKBANK" _
         Then Exit Sub
    If Target.Column = 3 Or Target.Column = 4 Then
        If Not Cells(Target.Row, 2) = "Havale Masrafı" And Cells(Target.Row, 3) < -20 And Cells(Target.Row, 4) <> "" Then
        'Degerler Cells(Target.Row, 4).Text
        'Cells(Target.Row + 1, 2) = Degerler(0)
            Application.EnableEvents = False
            Range(Cells(Target.Row + 1, 2), Cells(Target.Row + 1, 5)) = Degerler(Cells(Target.Row, 4).Text)
            Cells(Target.Row + 1, 1) = Cells(Target.Row, 1)
            Cells(Target.Row + 1, 3) = Cells(Target.Row + 1, 3) * 1
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[Ömer BARAN]

Tekrar merhaba.

Mevcut Kod'un Private Sub Worksheet_Change(ByVal Target As Range) şeklindeki
başlık satırından sonra aşağıdaki satırları ekleyince olması lazım.
.

    If Target.Column <> 2 Then GoTo 10
        If Not Intersect(Target, Range("B:B")) Is Nothing Then
            If Target.Value = "yeni" Then
                Target.Offset(0, 3) = "yeni üye"
            End If
        End If
10

 

[deleterx]

Tekrar merhaba.

Mevcut Kod'un Private Sub Worksheet_Change(ByVal Target As Range) şeklindeki
başlık satırından sonra aşağıdaki satırları ekleyince olması lazım.
.

    If Target.Column <> 2 Then GoTo 10
        If Not Intersect(Target, Range("B:B")) Is Nothing Then
            If Target.Value = "yeni" Then
                Target.Offset(0, 3) = "yeni üye"
            End If
        End If
10

Evet çalıştı fakat hücreden geri sildiğimde hata veriyor.

 

[Ömer BARAN]

Konunun başından beri silme ile ilgili hiçbir şey yazılmış-sorulmuş değil.
Sildiğinizde (B sütunundaki herhangi bir veriyi mi yoksa yeni ibaresi olan hücreyi mi?) aynı satırda E sütunundaki verinin silinmesini mi istiyorsunuz?

 

[turist]

Evet çalıştı fakat hücreden geri sildiğimde hata veriyor.

    If Not Intersect(Target, Range("B:B")) Is Nothing Then
[B][COLOR="Red"]Target.Offset(0, 3) = ""[/COLOR][/B]
If Target.Value = "yeni" Then
Target.Offset(0, 3) = "yeni üye"
End If
End If
10

şeklinde deneyin.

 

[deleterx]

Konunun başından beri silme ile ilgili hiçbir şey yazılmış-sorulmuş değil.
Sildiğinizde (B sütunundaki herhangi bir veriyi mi yoksa yeni ibaresi olan hücreyi mi?) aynı satırda E sütunundaki verinin silinmesini mi istiyorsunuz?

günaydın

B sütununda yeni yazdığımda E sütununa yeni üye yazıyor. Fakat hatalı yazdığımı varsayıp geri sildiğimde hata veriyor.Debug çıkıyor.Ben size kod sayfasını tamemen yollasam daha iyi olcak galiba.Diğer kodlarla çakışma yapmış olabilir.
Saygılarımla.