Sayfalara veri taşıma

[Mesafe]

Aynı kelime ile başlayan firma isimlerinin bilgilerini şarta uyuyorsa ilgili firma sayfasına taşmak istiyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Mesafe]

Sorum günceldir... Tamamına çözüm üretilmese bile,SOLDAN ve TOPLA.ÇARPIM birlikte nasıl kullanabileceğim konusunda fikir verirseniz bu da belki işime yarayabilir.

 

[Ömer]

Merhaba,

Çalılşma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                                        Cancel As Boolean)
    Dim S2 As Worksheet, sor As String
    If Intersect(Target, [G10:G65000]) Is Nothing Then Exit Sub
    
    Set S2 = Sheets("Sayfa2")
    
    sor = MsgBox("Yazdırmak İstiyor musunuz?", vbCritical + vbYesNo, "Dikkat !")
    
    If sor = vbYes Then
        S2.Range("B11") = Target.Value
        S2.Range("H5") = Target.Offset(0, -1)
    End If
 
End Sub

.

 

[Mesafe]

Sn. Ömer yardımınız için teşekkürler. Ancak ben sorumu yanlış bir dosya ile sormuşum. İlk mesajımdaki örnek dosyayı değiştirdim.

 

[Ömer]

Bence dosyayı değiştirmeden yeni sorunuzu yeni bir başlık açarak tekrar sorun.