BAŞKA EXCEL SAYFASINDA OTOMATİK LİSTE OLUŞTURULMASI

[ALPAY]

BAÞKA EXCEL SAYFASINDA OTOMATÝK LÝSTE OLUÞTURULMASI

100 KİÞİLİK BİR İLSETM VAR VE 5 SÜTENDAN OLUÞUYOR (ADI SOYADI, Ã?ÐRENCİ NO GİBİ) BU LİSTEDEN "X" YADA BAÞKA BİR YÃ?NTEMLE SEÇİLEN İSİMLERİN BAÞKA BİR EXCEL SAYFASINDA YİNE (ADI SOYADI, Ã?ÐRENCİ NO GİBİ) SÜTUNLARLA SIRALANMASINI İSTİYORUM, MAKRO YAZIMI KONUSUNDA YARDIMCI OLURMUSUNUZ?
TEÞEKKÜRLER

 

[Mahmut Bayram]

Sheets("Sayfa1").Select
Columns("A:E").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:e").Select
ActiveSheet.Paste
End Sub

eğerki sütun genişliklerini de ayarlasın isterseniz aşağıdaki kod

Sheets("Sayfa1").Select
Columns("A:E").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa2").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[ALPAY]

çok teşekkür ederim, ancak bazen birkaç sütundan seçilen bilgilerin aktarılması gerekiyor bu durumda nasıl bir makro atarım.

 

[veyselemre]

[vb:1:17a1386f7b]Sub secim_aktar()

Set s1 = [Sayfa1]
Set s2 = [Sayfa2]
s2.Cells.ClearContents

For x = 1 To 2
For y = 1 To 4
s2.Cells(x, y) = s1.Cells(x, y)
Next y
Next x

son = s1.[a65536].End(3).Row
c = 3

For x = 3 To son
If s1.Cells(x, 5) = "X" Then
For y = 1 To 4
s2.Cells(c, y) = s1.Cells(x, y)
Next y
c = c + 1
End If
Next x


End Sub
[/vb:1:17a1386f7b]