son sutuna yapıştır

[mesutaygun70]

checkboxlar seçili ise rapor sayfasının son sutununa yapıştır yapmak istiyorum. Ama en son checkbox ı A sutununa yapıştırıyor iki tane checkbox kodunu veriyorum. Yardım edebilirmisiniz.

Private Sub CheckBox4_Click()
Dim GK, KK As Worksheet
Set KK = Sheets("RAPOR")
Sheets("Veri Tabanı").Select
Range("B2:B200").Select
Selection.Copy
Sheets("RAPOR").Select
sonsutun = Cells(Rows.Count, 1).End(xlUp).Column
    KK.Range("a" & sonsutun).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Private Sub CheckBox5_Click()
Dim GK, KK As Worksheet
Set KK = Sheets("RAPOR")
Sheets("Veri Tabanı").Select
Range("c2:c200").Select
Selection.Copy
Sheets("RAPOR").Select
sonsutun = Cells(Rows.Count, 1).End(xlUp).Column
    KK.Range("a" & sonsutun).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[Korhan Ayhan]

Kodlarınızdaki aşağıdaki ifade hatalıdır.

KK.Range("a" & sonsutun).Select

Aşağıdaki gibi deneyiniz.

KK.Cells(2, sonsutun).Select

Burada oluşan sonsutun değeri diyelimki 5 olsun.

Kod çalıştığında yapıştırma işlemi RAPOR sayfasında E2 hücresine olacaktır.

Ek olarak kodları düzgün yazabilmek için temel yapılarını iyi öğrenmek gereklidir. Bunu dikkate alarak dersane bölümündeki konuları incelemenizi öneririm. Size fayda sağlayacaktır.

 

[mesutaygun70]

rapor sayfası a2 üzerine kayıt yapıyor. Benim istediğim checkboks4 a2 ye kayıt yaptı ise ve eğer checkbox5 tıklı ise b2 üzerine kayıt yapsın. bu şekilde devam eden checkboxlar var mesala checkbox6 tıklı değilse ve checkbox7 tıklı ise c2 ye kayıt yapsın.

bu şekilde hepsi a2 hücresine kayıt yapıyor ama bir sonrakini tıklayınca a2 yi siliyor yeni kayıt yapıyor.

 

[Korhan Ayhan]

sonsutun değişkeninize ait kodu değiştirip deneyiniz.

Eski hali;

sonsutun = Cells(Rows.Count, 1).End(xlUp).Column

Yeni hali;

sonsutun = Cells(2, Columns.Count).End(1).Column

 

[mesutaygun70]

Yine aynı şekilde oluyor. Belge ekledim. Kimlik (form) açıldığında soldaki checkboxlar hepsinin tıklı olması gerekmiyor. tıklı olanı sırasıyla rapor sayfasında sutun sutun atmasını istiyorum. Teşekkürler.
http://s4.dosya.tc/server3/734ftq/tanitmaformu.rar.html

Bir alt satıra at makrosundan kendim uyarlamaya çalıştım ama olmadı.

 

[mesutaygun70]

günceldir.

 

[mesutaygun70]

Sheets("Veri Tabanı").Range("z2:z200").Copy
sonsutun = Sheets("RAPOR").Cells(1, Columns.Count).End(1).Column + 1
Sheets("RAPOR").Cells(1, sonsutun).PasteSpecial Paste:=xlPasteValues

çözüldü.