Hücrelere tıklayınca başka bir hücreye aynısını yazsın

[ASLAN7410]

Merhaba arkadaşlar.

Ekte göndermiş olduğum hücrelerdeki hangi isme bir sefer tıkladığımda K2 hücresine, meyvelerden hangisine bir sefer tıkladığım zaman L2 hücresine gelmesini istiyorum.

Uğraştım ancak yapamadım, yardım edecek arkadaşlara teşekkür ederim.

 

[Ömer BARAN]

Aşağıdaki kodu sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B2:B10]) Is Nothing Then GoTo 10
    Range("K2") = Target.Value
    Range("K2").Select
10
If Intersect(Target, [E2:E10]) Is Nothing Then GoTo 20
    Range("L2") = Target.Value
    Range("L2").Select
20
End Sub

 

[YUSUF44]

İlgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2:B" & WorksheetFunction.Max(2, Cells(Rows.Count, "B").End(3).Row))) Is Nothing Then GoTo 10:
[K2] = Target
10:
If Intersect(Target, Range("E2:E" & WorksheetFunction.Max(2, Cells(Rows.Count, "E").End(3).Row))) Is Nothing Then Exit Sub
[L2] = Target
End Sub

 

[YUSUF44]

Sayın ömer.baran ben hazırlarken cevap vermiş. Aramızdaki fark benim kodlar B ve E sütunlarında veri girilip silindikçe kodlar son dolu hücreye göre işlem yaparlar.

Sayın ömer.baran, kodda then goto 20 demenize gerek yok, then exit sub diyebilirsiniz.

 

[ASLAN7410]

Her ikinize de çok teşekkür ederim, her ikisi de çok güzel olmuş ellerinize ve emeğinize sağlık hayırlı çalışmalar.

 

[Ömer BARAN]

Sayın ömer.baran ben hazırlarken cevap vermiş. Aramızdaki fark benim kodlar B ve E sütunlarında veri girilip silindikçe kodlar son dolu hücreye göre işlem yaparlar.

Sayın ömer.baran, kodda then goto 20 demenize gerek yok, then exit sub diyebilirsiniz.

Sayın YUSUF44 teşekkürler.
Bir kod acemisinin yazdığı kodda o kadar hata/gereksiz satır olur artık.

Her ikinize de çok teşekkür ederim, her ikisi de çok güzel olmuş ellerinize ve emeğinize sağlık hayırlı çalışmalar.

İyi günler dilerim.

 

[((sinem))]

Merhaba, aynı sorunu bende yaşıyorum . Ekteki dosyada makbuz numaralarına tıkladığımda makbuz sayfasında H9 hücresine otomatik yazmasını istiyorum. Yardımcı olur musunuz ?

 

[AdemCan]

Data Verileri isimli sayfanın kod bölümüne ekleyiniz.
Çift tıklayarak makbuz numarasını ekleyebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim makbuz As Worksheet
Set makbuz = Sayfa2 'Makbuz Sayfası
    If Target.Column = 1 And Target.Row > 1 Then
        makbuz.Range("H9") = Target.Value
        Cancel = True
    End If
End Sub

 

[YUSUF44]

Merhaba, aynı sorunu bende yaşıyorum . Ekteki dosyada makbuz numaralarına tıkladığımda makbuz sayfasında H9 hücresine otomatik yazmasını istiyorum. Yardımcı olur musunuz ?

Aşağıdaki kodları DATA VERİLERİ sayfasının kod bölümüne (sayfa adına sağ tıklayıp Kod Görüntüle deyince açılan sayfaya) yapıştırıp deneyin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target = "" Then Exit Sub
Sheets("MAKBUZ").[H9] = Target
Sheets("MAKBUZ").Activate 'isterseniz bu satırı silebilirsiniz
End Sub

 

[((sinem))]

çoooook teşekkür ederim