hücredeki değişen her değeri yan yana kaydetme

[Gülnur Soğuk]

Merhaba arkadaşlar sayfa1'deki J35 hücresindeki veriyi her commandButton ' a tıkladığımda sayfa4'te D32'den başlayarak aralarında 1 boş hücre olacak şekilde yan yana kaydetmesini istiyorum. Yardımcı olabilirseniz çok sevinirim.

 

[AdemCan]

Merhaba örnek kod.

Sub test()
Dim s1 As Worksheet, s4 As Worksheet, sutun As Long
Set s1 = Sayfa1: Set s4 = Sayfa4
sutun = s4.Cells(32, Columns.Count).End(1).Column

If sutun < 4 Then
    s4.Cells(32, 4) = s1.Range("J35").Value
Else
    s4.Cells(32, sutun + 2) = s1.Range("J35").Value
End If

End Sub

 

[Gülnur Soğuk]

Merhaba örnek kod.

Sub test()
Dim s1 As Worksheet, s4 As Worksheet, sutun As Long
Set s1 = Sayfa1: Set s4 = Sayfa4
sutun = s4.Cells(32, Columns.Count).End(1).Column

If sutun < 4 Then
    s4.Cells(32, 4) = s1.Range("J35").Value
Else
    s4.Cells(32, sutun + 2) = s1.Range("J35").Value
End If

End Sub

Merhabalar. Yardımınız için teşekkür ederim fakat çalıştıramadım. daha önce bu çalışmanın alt alta kaydedenini yapmıştım ve şu şekildeydi;

Private Sub CommandButton1_Click()

If Range("F4").Value = "" Then Exit Sub
i = Sayfa2.Cells(Rows.Count, "C").End(3).Row + 1
If i < 6 Then i = 6
Sayfa2.Cells(i, "C") = Range("F4").Value

End Sub

bunu dönüştüremedim sütun haline maalesef..

 

[AdemCan]

Merhaba, kullandığınız kodların sütuna yazan hali.

Private Sub CommandButton1_Click()
If Range("J35").Value = "" Then Exit Sub
i = Sayfa4.Cells(32, Columns.Count).End(1).Column + 2
    If i < 4 Then i = 4
        Sayfa4.Cells(32, i) = Range("J35").Value
End Sub

 

[Gülnur Soğuk]

Merhaba, kullandığınız kodların sütuna yazan hali.

Private Sub CommandButton1_Click()
If Range("J35").Value = "" Then Exit Sub
i = Sayfa4.Cells(32, Columns.Count).End(1).Column + 2
    If i < 4 Then i = 4
        Sayfa4.Cells(32, i) = Range("J35").Value
End Sub

bu şekilde ben de denedim fakat kodun 3. satırında hata veriyor. ((
dosyama buradan ulaşabilirsiniz.

ÖRNEK SARFİYAT.xlsx

Sheet1 m² ' de Kullanılan Boya,0,17739 Orsan Kodu,Bombe(m²),Bombex2(m²),Gövde(m²),Toplam Boyanan Dış Alan (m²),Toplam Boyanan İç-Dış Alan (m²),Boya Sarfiyatı (kg),Tüp Adetleri,Toplam m²,Toplam Kullanılan Boya (kg) 6T1440401 6T14405401 6T1440602 6T2061080,488 6T2062080,431 6T2062580 6T24607502 6...

docs.google.com

 

[AdemCan]

Dosyanızda çalışan kod.

Private Sub CommandButton1_Click()
If Range("J35").Value = "" Then Exit Sub
i = Sheet2.Cells(32, Columns.Count).End(1).Column + 2
    If i = 5 Then i = 4
        Sheet2.Cells(32, i) = Range("J35").Value
End Sub

 

[Gülnur Soğuk]

Dosyanızda çalışan kod.

Private Sub CommandButton1_Click()
If Range("J35").Value = "" Then Exit Sub
i = Sheet2.Cells(32, Columns.Count).End(1).Column + 2
    If i = 5 Then i = 4
        Sheet2.Cells(32, i) = Range("J35").Value
End Sub

Evett şimdi oldu.. bilgileriniz ve ayırdığınız zaman için çok teşekkür ederim ))

 

[AdemCan]

Rica ederim.