Tablodan belli sütunları kopyalama

[iaslan517]

Merhabalar ekteki dosyada belirlenen sütunlardaki veriler değişkenlik göstermektedir. makro ile bu belirlenen sütunlardaki verileri yeni bir sekme açıp oraya tek ve sıralı satırlar halinde kopyalamak mümkünmüdür

 

[yanginci34]

Günaydın; Yapılan işler hep 20 adet mi yoksa onlarda değişiyormu?

 

[iaslan517]

günaydın; hayır değişiyor

 

[askm]

Yeni sekme dediğiniz yeni sayfa açmak mı. En sona yeni sayfa açıp bu verileri yapıştırırız. Yalnız sıralama hangi veriye göre yapılacak. Açıklama yazarsanız sevinirim.

 

[iaslan517]

yeni bir worksheet açılacak oraya yapıştıracak bunu bir buton ile yapabilirsek çok daha iyi olur. sıralama ekte verdiğim dosyanın kırmızı kesik çizgiler ile belirttiğim yerin altında yazıyor kutucuk içerisinde. soldan sağa o sıralama şeklinde olabilirse çok minnettar kalırım. yardımlarınız için şimdiden teşekkür ederim

 

[askm]

Aşağıdaki kodları bir module yapıştırıp deneyin.

Sub askm()
Dim s1, s2 As Worksheet
Dim SonSat As Long
Set s1 = Sheets("Boş Form")
SonSat = s1.Range("a1048576").End(3).Row - 4
Sheets.Add After:=Sheets(Sheets.Count)
Set s2 = Sheets(Sheets.Count)


s1.Range("A5:G" & SonSat & ",S5:S" & SonSat & ",Z5:Z" & SonSat).Copy
s2.Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        
End Sub

 

[iaslan517]

Hocam Elinize sağlık fakat ekte gönderdiğim şekilde kopyalama yapılması mümkün mü,

 

[askm]

Aşağıdaki kodları kullanın.

Sub askm()
Dim s1, s2 As Worksheet
Dim SonSat As Long
Set s1 = Sheets("Boş Form")
SonSat = s1.Range("a1048576").End(3).Row - 4
Sheets.Add After:=Sheets(Sheets.Count)
Set s2 = Sheets(Sheets.Count)
x = 1
For i = 6 To SonSat Step 2
s2.Cells(x, "A") = s1.Cells(i, "B")
s2.Cells(x, "H") = s1.Cells(i, "Z")
s2.Cells(x, "I") = s1.Cells(i, "S")
x = x + 1
Next
s2.Columns("A:A").EntireColumn.AutoFit
End Sub

 

[iaslan517]

çok teşekkür ederim elinize sağlık, başarılarınızın devamını diliyorum