sayfa 1'e yazdığım bilgi sayfa 2'ye alfabetik olarak nasıl geçer

[deneme038]

değerli arkadaşlar. 250 satırlık bir isim tablosu yapıyorum. benim istediğim sayfa 1'e yazdığım isim veya numaralar alfabetik sıralama şeklinde veya azdan çoğa doğru sıralama şeklinde sayfa 2^ye otomatik olarak nasıl sıralanır. bununla ilgili bir kod varmıdır. burada sayfa 1'de değerlerin yazıldığı sütunun hangisi olduğu önemli değil.
örnek:
sayfa 1 de sayfa 2 de

ahmet ahmet
mehmet hasan
hasan hüseyin
hüseyin vb.. mehmet
yada rakamlar veya
1 1
6 4
4 5
5 vb. bunlar 6 şeklinde alfabetik olarak nasıl dizilir

 

[Orion1]

Sayfa1 deki a sütunundaki verikeri sayfa 2 ye a sütununa kopyalar ve artan şekilde sıralar.

[COLOR="blue"]Sub sayfa2ye_kopyala_ve_Artan_siralama()[/COLOR]
Sheets("Sayfa2").Range("A:A").ClearContents
Sheets("Sayfa1").Range("A1:A" & Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row).Copy Sheets("Sayfa2").Range("A1")
Sheets("Sayfa2").Range("A:A").Sort Sheets("Sayfa2").Range("A1")
MsgBox "Kopyalama ve sıralama yapıldı."
[COLOR="blue"]End Sub[/COLOR]

 

[deneme038]

evren kardeş sayfa 1 e yazdığım bilgi sayfa ikiye otomatik olarak geçmiyor. acaba ben mi yapamadım. bir de bu kodu sayfa 1'e mi yoksa sayfa 2'ye mi yazacağız. yardımcı olursanız memnun olurum...

 

[Orion1]

evren kardeş sayfa 1 e yazdığım bilgi sayfa ikiye otomatik olarak geçmiyor. acaba ben mi yapamadım. bir de bu kodu sayfa 1'e mi yoksa sayfa 2'ye mi yazacağız. yardımcı olursanız memnun olurum...

O zaman ekli dosyayı inceleyiniz.
Kodlar sayfa1'in kod sayfasındadır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("Sayfa2").Cells(65536, "A").End(xlUp)(2, 1) = Target.Value
Sheets("Sayfa2").Range("A:A").Sort Sheets("Sayfa2").Range("A1")
End Sub

 

[deneme038]

teşekkür ederim bu işime yaradı..iyi akşamlar...

 

[Necdet]

Merhaba,

Bende farklı bir yaklaşım sunayım.

Sayfa1 e her girilen satır için değil, butona basarak topluca aktarır ve Sayfa2 de bulunduğunuz kolona göre sıralama yapar.

Yani Sıralama kolonunu siz seçmiş oluyorsunuz.

Sub AktarSirala()
Dim Kolon, SonKolon As Integer
Dim Son As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
s2.Cells.Clear
Son = [A65536].End(3).Row
SonKolon = [IV1].End(1).Column
Kolon = ActiveCell.Column
If Kolon > SonKolon Then Kolon = 1
Range(Cells(1, "A"), Cells(Son, SonKolon)).Copy s2.[A1]
s2.Select
s2.Range(Cells(2, "A"), Cells(Son, SonKolon)).Sort Key1:=s2.Cells(1, Kolon)
End Sub

 

[GokhanTasci]

Merhaba indirdim ve ilgilendim gerçekten
Acaba bu kodu nasıl girdiniz, yani bu kod üzerinde değişiklik nasıl yapabilirim :s

Yani kodu göremedim ben hiçbiryerde acaba nereye gömülmüş durumda?

Merhaba,

Bende farklı bir yaklaşım sunayım.

Sayfa1 e her girilen satır için değil, butona basarak topluca aktarır ve Sayfa2 de bulunduğunuz kolona göre sıralama yapar.

Yani Sıralama kolonunu siz seçmiş oluyorsunuz.

Sub AktarSirala()
Dim Kolon, SonKolon As Integer
Dim Son As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
s2.Cells.Clear
Son = [A65536].End(3).Row
SonKolon = [IV1].End(1).Column
Kolon = ActiveCell.Column
If Kolon > SonKolon Then Kolon = 1
Range(Cells(1, "A"), Cells(Son, SonKolon)).Copy s2.[A1]
s2.Select
s2.Range(Cells(2, "A"), Cells(Son, SonKolon)).Sort Key1:=s2.Cells(1, Kolon)
End Sub

 

[CaNeR__16]

arkadaşlar ben burda yeniyim bişey sormak istiyorum buraya kodlar veriyorsunuz ama ben bunlardan bişey anlamadım bu kodları nasıl işleme koyacağız bi açıklarmısınız