SeÇİlen SÜtunlari Aktar

[Erdinç FIRTINA]

Değerli üyeler,
(Forumdan yararlandığım) Aşağıdaki birinci bölümde yer alan kodlarla değişik sayfalardaki (birden fazla sayfadan) sütunlarda yer alan verileri bir sayfaya kopyalayıp alabiliyorum.

İkinci bölümde yer alan kodlarla ise, ComboBox tan seçtiğim bir sayfadan checkboxlar ile seçilen sütunlardaki verileri aktarabiliyorum.


Private Sub CommandButton2_Click()
Set S1 = Sheets("KURUM")
Set S2 = Sheets("PERSON")
Set s3 = Sheets("ÖĞRNC")
Set s4 = Sheets("OCAK")
S1.Range("A1:F" & S1.[A65536].End(3).Row).Copy s4.[A1]
S2.Range("A1:I" & S2.[A65536].End(3).Row).Copy s4.[H1]
s3.Range("A1:M" & s3.[A65536].End(3).Row).Copy s4.[R1]
End Sub



Private Sub CommandButton1_Click()
Set sana = Sheets("OCAK")
Set sveri = Sheets(ComboBox1.Text)
sana.[B1:BI456].Cells.ClearContents
sana.[CC1] = ComboBox1.Text
sat = 2
For X = 1 To 6
If Controls("CheckBox" & X) Then
sana.Cells(1, sat) = sveri.Cells(1, X + 1)
sana.Cells(2, sat) = sveri.Cells(2, X + 1)
sana.Cells(3, sat) = sveri.Cells(3, X + 1)
Columns("A:BI").EntireColumn.AutoFit
sat = sat + 1
End If
Next X
Application.ScreenUpdating = True
MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "KURUM"
ComboBox1.AddItem "PERSON"
ComboBox1.AddItem "ÖĞRNC"
End Sub

Benim yapmak istediğim ise, birinci bölümdeki gibi, değişik sayfalardaki sütunlarda yer alan verileri dilediğim sütunları seçerek belirtilen sayfaya aktarabilmek. Bu konuda SAYIN EVREN GİZLEN TARAFINDAN HAZIRLANAN BENZER BİR DOSYA BULDUM, (http://www.excel.web.tr/showthread.php?t=54630&highlight=S%DCTUN+AKTAR) ancak bu dosyadan da yararlanarak yapmak istediğimi yapamadım.

Yapılmak istenen özetle;
1. BİR USERFORM ÜZERİNDEKİ COMBOBOXTA YER ALACAK OLAN AYLARDAN (OCAK, ŞUBAT, MART … DİYE DEVAM EDEN) BİRİNİ SEÇMEK VE SEÇİLEN AY ADINDA BİR SAYFANIN AÇILMASI.
2. USERFORM ÜZERİNDEKİ CHECKBOXLAR YARDIMIYLA, "KRM, PERSON VE ÖĞRNC" SAYFALARINDAN SEÇİLEN SÜTUNLARIN KOPYALANARAK AÇILAN SAYFAYA AKTARILMASI (EĞER SEÇİLEN AY ADINDAKİ SAYFA DAHA ÖNCEDEN AÇILMIŞSA VAR OLAN SAYFAYA BELİRLENEN SÜTUNDAN BAŞLAYARAK AKTARILMASI)
ÖRNEĞİN;
KRM SAYFASINDAN SEÇİLEN B,E, F SÜTUNLARI OCAK ADLI SAYFADA B SÜTUNUNDAN BAŞLAYARAK,
PERSON SAYFASINDAN SEÇİLEN B,G, I SÜTUNLARI OCAK ADLI SAYFADA K SÜTUNUNDAN BAŞLAYARAK,
ÖĞRNC SAYFASINDAN SEÇİLEN B,C, F, J, L SÜTUNLARI OCAK ADLI SAYFADA U SÜTUNUNDAN BAŞLAYARAK,
SIRASIYLA AKTARILACAK. VE LİSTBOXLARDA VEYA LİSTVİEW DE GÖSTERİLECEK.

 

[Erdinç FIRTINA]

Değerli Üyeler,
Hiç değilse aşağıdaki kodlarda sütun seçerek veri aktarma yapılamaz mı? Ne gibi bir değişiklik yapmak gerekir?

Örneğin;
S1.Range("A1:F" & S1.[A65536].End(3).Row).Copy s4.[A1]
S1 deki A1:F sütunları arasında yer alan B, D ve E sütunları seçilemez mi?

Yardımlarınız için teşekkürler!!!

Private Sub CommandButton2_Click()
Set S1 = Sheets("KURUM")
Set S2 = Sheets("PERSON")
Set s3 = Sheets("ÖĞRNC")
Set s4 = Sheets("OCAK")
S1.Range("A1:F" & S1.[A65536].End(3).Row).Copy s4.[A1]
S2.Range("A1:I" & S2.[A65536].End(3).Row).Copy s4.[H1]
s3.Range("A1:M" & s3.[A65536].End(3).Row).Copy s4.[R1]
End Sub

 

[Orion1]

Değerli Üyeler,
Hiç değilse aşağıdaki kodlarda sütun seçerek veri aktarma yapılamaz mı? Ne gibi bir değişiklik yapmak gerekir?

Örneğin;
S1.Range("A1:F" & S1.[A65536].End(3).Row).Copy s4.[A1]
S1 deki A1:F sütunları arasında yer alan B, D ve E sütunları seçilemez mi?

Yardımlarınız için teşekkürler!!!

Private Sub CommandButton2_Click()
Set S1 = Sheets("KURUM")
Set S2 = Sheets("PERSON")
Set s3 = Sheets("ÖĞRNC")
Set s4 = Sheets("OCAK")
S1.Range("A1:F" & S1.[A65536].End(3).Row).Copy s4.[A1]
S2.Range("A1:I" & S2.[A65536].End(3).Row).Copy s4.[H1]
s3.Range("A1:M" & s3.[A65536].End(3).Row).Copy s4.[R1]
End Sub

O kodda zaten BDE sütunlarında bulunan hücrelerde seçilmiş oluyor.

 

[Erdinç FIRTINA]

Sayın Evren GİZLEN,
Kodda belirtilen sütunlar var ama ben sadece o sütunların aktarılmasını istiyorum. Yani, A, C vb. istenmeyen sütunların aktarılmasını istemiyorum.

Aslında sayın Evren GİZLEN benim esas talebime cevap veren sizin daha önceden hazırlamış olduğunuz ve linkini verdiğim dosyadaki gibi checklerle sütunların seçilebilmesi ve verilerin bu sırada aktarılmasıydı.

İlginiz için çok teşekkür ederim!!!

 

[Orion1]

BDE sütunlarını kapsar.

S1.Range("B1:B" & S1.[A65536].End(3).Row).Copy s4.[A1] & ",D1:E" & S1.[A65536].End(3).Row).Copy s4.[A1]

 

[Erdinç FIRTINA]

Sayın GİZLEN,
S1.Range("B1:E" & S1.[A65536].End(3).Row).Copy s4.[A1]
Teşekkür ederim. Ama benim yapmak istediğim farklı sütunları seçebilmek. Kodda sırasıyla BDE sütunları aktarılacak. Oysa istediğim, sütunların sırasıyla aktarılması değil, benim sırasıyla yer alan sütunlardan dilediğimi seçebilmem. Örneğin; S1 de yer alan B1:J sütunları arasından, C, E, G vb. seçebilmekti. Sizin hazırlamış olduğunuz bulduğum dosyada benzer işlem CheckBox larla yapılıyor. Yardımlarınız için çok teşekkürler!!!

 

[Orion1]

Userformunuza baktım ama pekte bir şey anladığımı söyleyemem.
Mesela Kurum sayfası bölümünde 8 adet çekbox Ve bir adet listbox koymuşsunuz.
Bunlar nedir bu çekboxların captionlarını isimlendiremezmisiniz?Birde her kurumu bir frame içersine alırsanız çözüm için uğraşan arkadaşlara dahada kolaylık olur.

 

[Erdinç FIRTINA]

Haklısınız Sayın GİZLEN,
Ben yapmak istediğimi tam olarak anlatamadım herhalde. Ben dosyamı yeniden düzenleyerek göndereyim o zaman.

 

[Erdinç FIRTINA]

Sayın GİZLEN,
Uyarınız doğrultusunda dosyamı tekrar düzenledim. Umarım yapmak istediğimi anlatabilmişimdir!!!!

Yardımlarınız için şimdiden teşekkürler!!!