Satır Atlayarak Hücreleri Sıralamak??

[sscluber]

Arkadaşlar excelde a1 a2 a3 ... a1000 şeklinde ki sıralı hücreleri a1 a3 a5 a7 a9 gibi 1 er satır atlayarak sıralayamıyorum. Bilen arkadaşlar yardımcı olurlarsa seviniirim. Şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aradaki satırlara ne oldu?

 

[sscluber]

aradaki satırlara bişi olmadı mesela1. gün 2. gün 3. gün 4. gün ... 100. gün şeklinde hergün için sıralı veriler var alt alta.. ben başka bir sayfada 1.gün 3. gün 5.gün ...99. şeklinde sırlamak istiyorum.

 

[sscluber]

Merhaba,

Aradaki satırlara ne oldu?

onlara bişi olmadı. elimde günlük sayısal veriler var. 1. gün 2. gün .... 100. gün gibi. ben 1. gün 3. gün 5. gün ...99. gün gbi tek günlerdeki verileri başka bir sayfaya ayrı olarak yazmak istiyorum. bunun bi kısa yolu varmı

 

[Necdet]

Tekrar merhaba,

Sorunuzu örnek dosya ile desteklerseniz sorunuzun anlaşılması ve çözümü daha hızlı olabilir.

 

[sscluber]

örnek dosyayı nasıl eklicem

 

[Orion1]

A sütununu birer atlatyarak B sütununa yazar.

Sub atla()
Range("B:B").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row Step 2
    sat = sat + 1
    Cells(sat, "B").Value = Cells(i, "A").Value
Next
End Sub

 

[İhsan Tank]

örnek dosyayı nasıl eklicem

http://www.excel.web.tr/showthread.php?t=32554
inceleyiniz

 

[sscluber]

A sütununu birer atlatyarak B sütununa yazar.

Sub atla()
Range("B:B").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row Step 2
    sat = sat + 1
    Cells(sat, "B").Value = Cells(i, "A").Value
Next
End Sub

çook saolll eyvallah

 

[Altay3555]

ekli dosyada uygulama

A sütununu birer atlatyarak B sütununa yazar.

Sub atla()
Range("B:B").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row Step 2
    sat = sat + 1
    Cells(sat, "B").Value = Cells(i, "A").Value
Next
End Sub

Selamlar hocam...
Dosya ekledim bir tane örnek olarak...
1.sayfadaki verileri atlayark 2.sayfaya yazdırmak istiyoruz.
Kod'u düzenleyemedim.Ardım edermisiniz...
Şimdiden teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Sn. Altay3555,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim X As Long, Satır As Long
    
    Set S1 = Sheets("Aşı Dosyası")
    Set S2 = Sheets("Sayfa 2")
    Satır = 3
    
    S2.Range("A3:T65536").ClearContents
    
    For X = 2 To S1.Range("A65536").End(3).Row
        S2.Rows("" & Satır & ":" & Satır + 1).Copy S2.Range("A" & Satır + 2)
        S2.Cells(Satır, 1) = X - 1
        S2.Cells(Satır, 2) = S1.Cells(X, 1)
        S2.Cells(Satır, 3) = S1.Cells(X, 2)
        S2.Cells(Satır, 4) = S1.Cells(X, 3)
        S2.Cells(Satır, 5) = S1.Cells(X, 4)
        S2.Cells(Satır, 6) = S1.Cells(X, 5)
        S2.Cells(Satır, 7) = S1.Cells(X, 6)
        S2.Cells(Satır, 8) = S1.Cells(X, 7)
        S2.Cells(Satır, 12) = S1.Cells(X, 10)
        S2.Cells(Satır, 14) = S1.Cells(X, 11)
        S2.Cells(Satır, 16) = S1.Cells(X, 12)
        Satır = Satır + 2
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Altay3555]

Sevgili Korhan Hocam,
Çok teşekkür ederim.Aslında "Aktar" olarak 8-10 tane kod vardı ama bir türlü beceremedim.
Sağlıcakla ve Mutlu Kalınız.

 

[Altay3555]

Aktar komutu hatası

Selamlar,

Sn. Altay3555,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim X As Long, Satır As Long
    
    Set S1 = Sheets("Aşı Dosyası")
    Set S2 = Sheets("Sayfa 2")
    Satır = 3
    
    S2.Range("A3:T65536").ClearContents
    
    For X = 2 To S1.Range("A65536").End(3).Row
        S2.Rows("" & Satır & ":" & Satır + 1).Copy S2.Range("A" & Satır + 2)
        S2.Cells(Satır, 1) = X - 1
        S2.Cells(Satır, 2) = S1.Cells(X, 1)
        S2.Cells(Satır, 3) = S1.Cells(X, 2)
        S2.Cells(Satır, 4) = S1.Cells(X, 3)
        S2.Cells(Satır, 5) = S1.Cells(X, 4)
        S2.Cells(Satır, 6) = S1.Cells(X, 5)
        S2.Cells(Satır, 7) = S1.Cells(X, 6)
        S2.Cells(Satır, 8) = S1.Cells(X, 7)
        S2.Cells(Satır, 12) = S1.Cells(X, 10)
        S2.Cells(Satır, 14) = S1.Cells(X, 11)
        S2.Cells(Satır, 16) = S1.Cells(X, 12)
        Satır = Satır + 2
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Selamlarlar olsun hocalarıma
Yukarıdaki "aktar" komutu için küçük bir bir çalışma göndermiştim,çalışıyor,saniye bazında işlem tamamlanıyor,lakin ana dosyamda veri sayısı 1158..Bu dosyaya uyguladığımda 4 saat pc yi açık bırakmama rağmen aktarım yapamadım.işlem yapılıyor,saatler sürüyor ama asla bitmiyor.Bende A ve T kısmında olan 65536 rakamını 1000 yaparak denedim yine olmadı.500 yaptım "işlem tamamlanmıştır"dedi lakin veri aktaramadı.
Kısacası aktarım işlemini beceremedim.Benden mi kaynaklanıyor acaba...Biryerlerde yanlışlık mı yapıyorum bilemiyorum..
dosya ektedir...
yardımcı olursanız sevinirim

 

[Altay3555]

Selamlar,
Konu çözümsüzmüdür acaba...Aktar komutlarının uzun çalışma nedeni ne olabilir.