sayfadan sayfaya veri

[memduh]

Merhaba Arkadaşlar.
sayfa1den sayfa2 ye aşağıdaki kola veri aktarırken alfabetik sıray göre sayfa2de göstermesini bir türlü yapamadım. Ayrıca aynı buttunla birden fazla veri aktarılırmı?

Private Sub CommandButton1_Click()
For a = 1 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("a1:a" & a), Sheets("sayfa1").Cells(a, 1).Value) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Sheets("sayfa1").Cells(a, 1).Value
End If
Next a
End Sub

Bu Makroları değerli değerli formunuzdan aldım.Teşekkürler.


Excel-2003 Türkçe

 

[memduh]

Arkadaşlar aynı buttunla birden fazla veriyi aktaramadım. yardımcı olursanız sevinirim.




Excel-2003 Türkçe

 

[zafer]

Merhaba

birden fazla veriden kastınız nedir.

Makroda
sy1 deki verileri sayıyor 1. sıraya denk gelenleri sy2 'ye aktarıyor


sy1 sy2
1 1
2 2
3 3
1 5
4 5
3
5

gibi

hepsini aktarmak istiyorsanız


Sub Com()
For a = 1 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row

Sheets("sayfa2").Cells(a, 1) = Sheets("sayfa1").Cells(a, 1).Value

Next a
End Sub

sıralamak için

Sub sıralı()

Sheets("sayfa2").Range("A1").Select
Range("A1:A1000").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

 

[Levent Menteşoğlu]

Yazdığınız kod mükerrer verileri tekrarsız olarak sayfa2 ye aktarmaktadır. Aşağıdaki kırmızı renkli satırı ilave ederseniz veriler sıralı hale gelecektir. Aynı kod ile başka sütunlarıda aktarmak mümkündür. Fakat bu durumun açıklığa kavuşturulması gerekir. Ã?rneğin diğer sütunladaki hangi veriler direk olarakmı yoksa değerleri toplanarak mı aktarılacaktır gibi. Bununla ilgili bir dosya eklemenizde yarar görüyorum.

[vb:1:291bffaf18]Private Sub CommandButton1_Click()
For a = 1 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("a1:a" & a), Sheets("sayfa1").Cells(a, 1).Value) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Sheets("sayfa1").Cells(a, 1).Value
End If
Next
sheets("sayfa2").[a1:a65536].sort Key1:=sheets("sayfa2").[a1]
End Sub
[/vb:1:291bffaf18]

 

[memduh]

Dosya Ektedir.



Excel-2003 Türkçe

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e3a406b2b7]Private Sub CommandButton1_Click()
For a = 1 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("a1:a" & a), Sheets("sayfa1").Cells(a, 1).Value) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Sheets("sayfa1").Cells(a, 1).Value
End If
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("b1:b" & a), Sheets("sayfa1").Cells(a, 2).Value) = 1 Then
d = d + 1
Sheets("sayfa2").Cells(d, 2) = Sheets("sayfa1").Cells(a, 2).Value
End If
Next
Sheets("sayfa2").[a1:a65536].Sort Key1:=Sheets("sayfa2").[a1]
Sheets("sayfa2").[b1:b65536].Sort Key1:=Sheets("sayfa2").[b1]
End Sub[/vb:1:e3a406b2b7]