• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Bir Sütündaki Değerleri Diğer Sütunlara Kesip Yapıştırma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

chris

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
17
En iyi yanıt
0
Puanları
3
Yaş
42
Konum
İzmir
Merhaba,

Biraz önce yardımınız ile oluşturduğum listeden yaklaşık 40bin sonuç çıktı. Aslında tam olarak 39270. Hepsi A sütununda sıralı şekilde.
Ben bunu her sütüna 490 adet gelecek şekilde nasıl düzenleyebilirim acaba?

Teşekkürler.
 

anemis

Yeni Üye
Katılım
13 Haz 2018
Mesajlar
22
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
ANKARA
Web sitesi
www.vartamuhendislik.com.tr
Ad Soyad
Tarık VAROL
Yardım aldığınız konu altından yazarsanız daha kolay olabilir. Sorunuz bu şekli ile birşey ifade etmedi ne yazık ki bana.
 

chris

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
17
En iyi yanıt
0
Puanları
3
Yaş
42
Konum
İzmir
@anemis soruyu daha net olarak sormak gerekirse; A sütünunda yer alan 39270 satırı her sütüna 490'ar adet gelecek çekilde nasıl değiştirebilirim?
Yani A sütünunda 490 satır, B sütünunda 490 satır, C sütu... diye gidecek.
 

Zeki Gürsoy

Uzman
Katılım
7 Haz 2018
Mesajlar
40
En iyi yanıt
0
Puanları
18
Konum
Sakarya-Hendek
Basit bir "For" döngüsü ile parçalanabilir.

PHP:
Sub TEST()
    
    Application.EnableEvents = False
    
    For i = 1 To 39270 Step 490
        
        say = say + 1
        
        Range(Cells(i, "a"), Cells(say * 490, "a")).Copy _
            Cells(1, say + 1)
        
    Next
    
     Application.EnableEvents = True
    
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt