Çift tık

[sirkülasyon]

"Taşıma Modül Yaklaşık Maliyet" sayfasında B9:B110 arasında çift tıklandığında
Sosyal Güvenlik Bildirim Formu 4. Satırdan itibaren
"Taşıma Modül Yaklaşık Maliyet" B sütununu "Sosyal Güvenlik Bildirim Formu" C Sütununa
"Taşıma Modül Yaklaşık Maliyet" D sütununu "Sosyal Güvenlik Bildirim Formu" D Sütununa

alt alta aktarmak için yardımcı olabilir misiniz?

 

[muygun]

Merhaba;
"Taşıma Modül Yaklaşık Maliyet" sayfasında sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B9:B110]) Is Nothing Then Exit Sub
Set s1 = ThisWorkbook.Worksheets("Taşıma Modül Yaklaşık Maliyet")
Set s2 = ThisWorkbook.Worksheets("Sosyal Güvenlik Bildirim Formu")
satır = Target.Row
If s2.Cells(4, "c") = "" Then sat = 4
If s2.Cells(4, "c") <> "" Then sat = s2.Range("c65536").End(xlUp).Row + 1
s2.Cells(sat, "c") = s1.Cells(satır, "b")
s2.Cells(sat, "d") = s1.Cells(satır, "d")
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.
Not: Bu tür sorularınız için örnek dosya ekleyin.

 

[sirkülasyon]

Sayın muygun
Ellerinize sağlık. Teşekkür ederim. Sağ Olasınız