TextBox a göre aktarma

[teksen]

Arkadaşlar merhaba,

TextBox1 içine 1 yazıp CommandButton1 e bastığımda Sayfa2 deki A2,B2,C2 hücrelerinin içeriğini Sayfa3 te D1,D2,D3 hücrelerinede yazması mümkünmüdür acaba?

Şimdiden teşekkür ederim.

 

[Orion1]

Aşağıdaki kodları userform'un kod sayfasına yapıştırınız.

Private Sub CommandButton1_Click()
Dim i As Byte
If TextBox1.Value = 1 Then
    Sheets("Sayfa3").Range("D1:D3").ClearContents
    For i = 1 To 3
        Sheets("Sayfa3").Cells(i, "D").Value = Sheets("Sayfa1").Cells(2, i)
    Next i
    MsgBox "Akatarıldı..!!"
End If
End Sub

 

[teksen]

Teşekkür ederim Sn.Orion2

Bu şekilde sayfa3 te D1 D2 ve D3 hücrelerine aktarıyor.

aynı sayfada A2 B2 ve C2 hücrelerine aktarması için nasıl bir değişiklik yapmamız gerekir acaba?

 

[teksen]

Daha doğrusu Sayfa2 deki 2 sıradaki bilgileri 1 yazıp butona tıkladığımda sayfa3 te istediğim hücrelere aktarmasını istiyorum.

şimdiden teşekkür ederim.

 

[Orion1]

Daha doğrusu Sayfa2 deki 2 sıradaki bilgileri 1 yazıp butona tıkladığımda sayfa3 te istediğim hücrelere aktarmasını istiyorum.

şimdiden teşekkür ederim.

Aşağıdaki kodu kullanınınız.
Sayfa2'yi sayfa3'e aktarıyor.

Private Sub CommandButton1_Click()
Dim i As Byte
If TextBox1.Value = 1 Then
    Sheets("Sayfa3").Range("D1:D3").ClearContents
    For i = 1 To 3
        [COLOR="Red"]Sheets("Sayfa3").Cells(i, "D").Value = Sheets("Sayfa2").Cells(2, i)[/COLOR]
    Next i
    MsgBox "Akatarıldı..!!"
End If
End Sub

 

[teksen]

Teşekkür ederim Sn.Orion2

Sayfa3 te D1,D2,D3 hücreleri yerine

Örneğin C4,F6,D9 hücrelerine aktarmak istesem nasıl yaparız acaba?

 

[teksen]

Arkadaşlar bu konuda yardımcı olabilecek kimse varmı acaba?

 

[Orion1]

Teşekkür ederim Sn.Orion2

Sayfa3 te D1,D2,D3 hücreleri yerine

Örneğin C4,F6,D9 hücrelerine aktarmak istesem nasıl yaparız acaba?

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Dim i As Byte
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
If TextBox1.Value = 1 Then
    s3.Range("D1:D3").ClearContents
    s3.Range("C4").Value = s2.Range("A2").Value
    s3.Range("F6").Value = s2.Range("B2").Value
    s3.Range("D9").Value = s2.Range("C2").Value
    MsgBox "Akatarıldı..!!"
End If
Set s2 = Nothing
Set s3 = Nothing
End Sub

 

[teksen]

Teşekkür ederim,

Elinize sağlık.

 

[Seyit Tiken]

Bu şekilde bir kodta kullanabilirsiniz.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Me.TextBox1 = 1 Then Sayfa2.[a1:c1].Copy Sayfa3.[a1]
End Sub