Soru çift tıklama ile diğer sheete tıkladığım veriyi gönderme

[u.L.a.s]

Merhabalar

Veri sheetimde bulunan A sütununda herhangi bir hücreye çift tıklayınca Etiket sheetimde belirli hücrelere göndermesini istiyorum.

Etiket sheetimde bu hücreler şunlardır.
A2 - C2 - A7 - C7 - A12 - C12 - A17 - C17 - A22 - C22 - A27 - C27 - A32 - C32

ben bu hücrelere veri sayfasında a sütununda herhangi bir hücreye çift tıkladığımda tıkladığım hücredeki veri ne ise aynısını bu hücrelere yapılştırsın istiyorum.

Ama tabi bunu yaparken yukarıda saydığım hücrelerin boş dolu olma durumuna bakmalı.

Sıfırdan başladığımızı düşünürsek Örneğin Veri sayfasında A85 hücresine çift tıkladım. ilk boş hücre Etiket sayfasında A2 olacağından bu A85 teki veri yansıyacak

sonra Veri sayfasında A25 e çift tıkladım bir sonraki boş hücrem Etiket sayfasında C2 ye yapıştırsın ya da ilk önce A sütunlarına yapıştırır sonra C sütunlarına geçebilir hangisi kolay olacaksa

Bilgi ve yardımlarınızı rica ederim

 

[u.L.a.s]

Örnek dosya aşağıdaki linktedir. örnek dosyada daha detaylı anlaşılır bir şekilde anlattım durumu. şimdiden teşekkür ederim

https://dosya.co/jj5dkon8s72h/ornek.rar.html

 

[YUSUF44]

Aşağıdaki kodları veri sayfasının kod bölümüne yapıştırıp deneyiniz. Dosyanızda 32. satıra kadar sarı hücre olduğu için 32 satıra göre ayarladım, gerçek dosyanızda daha fazla olacaksa ona göre güncellersiniz:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
son = Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("A2:A" & son)) Is Nothing Then Exit Sub
Set s2 = Sheets("etiket")
For sat = 1 To 32
    For sut = 1 To 3 Step 2
        If s2.Cells(sat, sut).Interior.Color = vbYellow Then
             If s2.Cells(sat, sut) = "" Then
                s2.Cells(sat, sut) = Target
                hedef = "ok"
                Exit Sub
            Else
                hedef = "yok"
            End If
        End If
    Next
Next
If hedef = "yok" Then
    MsgBox "etiket safyasında boş sarı hücre bulunmuyor", vbCritical
End If
End Sub

 

[u.L.a.s]

Üstadım çok teşekkürler emeğine bilgine sağlık