Hedef hücreye veri göndermek..

[EKREM1661]

Değerli Arkadaşlar..! Ekli dosyada, verinin bulunduğu hedef hücreye gidilen bir örnek var.. Bu defa, aynı hedef hücreye belirlenen bir hücreden veri yapıştırmak istesek nasıl bir kod yazmamız gerekiyor..

 

[EKREM1661]

güncelleme..

 

[Ömer BARAN]

Merhaba.
Maksatınızı anlamış değilim ama aşağıdaki kod blokunukullanabilirsiniz.
Tabi bu düğmenin aktardığı s2.Cells(18, 8) yani H18 hücresini nasıl belirlediğini bilemiyorum tabi.

Private Sub CommandButton4_Click()

Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")

s1.Cells(s1.Range("A1") * 5, "N") = s2.Cells(18, 8)

End Sub

 

[EKREM1661]

Ömer bey, ziyadesiyle teşekkür ederim, eline sağlık.. Bu arada unuttuğum bir ilave kaldı.. Hedef hücrede veri var ise, uyarı verdirebilirsek başka da bir sorun kalmıyor..

 

[Ömer BARAN]

Merhaba.
Önceki kod'u aşağıdaki ile değiştirin.

[FONT="Trebuchet MS"][B]Private Sub CommandButton4_Click()[/B]
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")

If MsgBox("İşlemi onaylıyor musunuz ?", vbCritical + vbYesNo, "D İ K K A T") = vbYes Then
        [COLOR="Red"]s1.Cells(s1.Range("A1") * 5, "N") = s2.Cells(18, 8)[/COLOR]
    MsgBox "İşlem tamamlanmıştır.", vbInformation, "B İ L G İ"
Else
    MsgBox "İşlem iptal edilmiştir.", vbInformation, "B İ L G İ"
End If

[B]End Sub[/B][/FONT]

 

[EKREM1661]

Ömer hocam, tekrar tekrar teşekkürler..Allah razı olsun..