Soru Hücre Boş Bırakıp 1 Hücre Seçip Kopyalama Işlemi

[tomx]

Herkese merhabalar
Ödevim için gerekli olan veriler için satır kısmında bulunan yaklaşık 2500 adet hücreden 1 tanesini kopyalayıp 1 tanesini atlayarak hücreleri kopyalama işlemi yapmak zorundayım.
dosya ekinde cihaz dan aldığım 2500 tane veriyi 1 dolu 1 boş şeklinde yarıya düşürmem gerekiyor.
Bilen biri varsa yardımcı olabilir mi lütfen

 

[YUSUF44]

Merhaba. Foruma hoş geldiniz.

Kopyaladıktan sonra ne yapılacak?

Mümkünse örnek dosya paylaşın lütfen.

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Sub birdolu_birboş()
For h = 2 To [a2500].End(3).Row Step 2
Cells(h, "a") = ""
Next
End Sub

 

[tomx]

Merhaba. Foruma hoş geldiniz.

Kopyaladıktan sonra ne yapılacak?

Mümkünse örnek dosya paylaşın lütfen.

Teşekkürler kopyalama işleminden sonra daha az veri ile yapay sinir ağlarında verileri isleyecegim. Bu veriler 60 saniye lik zaman araliginda 2 salisede bir alınmış veriler çok fazla gereksiz olduğu için verileri azaltacagim. Bu sebeple

 

[tomx]

İstediğiniz böyle bir şey mi?

Sub birdolu_birboş()
For h = 2 To [a2500].End(3).Row Step 2
Cells(h, "a") = ""
Next
End Sub

Deneyeceğim sonucu iletirim alakanız için teşekkür ederim

 

[YUSUF44]

Aslında sormak istediğim şuydu: HErhangi bir veriyi kopyalamak kolaydır, sağ tıklarsınız ve kopyala dersiniz ya da CTRL+C yaparsınız. Sonra bu kopyaladığınız veri ne olacak? Muhtemelen bir yere yapıştırılacak ama nereye? Ya da yapmak istediğiniz verilerinizin birer tanesini tamamen silmek mi?

 

[tomx]

Aslında sormak istediğim şuydu: HErhangi bir veriyi kopyalamak kolaydır, sağ tıklarsınız ve kopyala dersiniz ya da CTRL+C yaparsınız. Sonra bu kopyaladığınız veri ne olacak? Muhtemelen bir yere yapıştırılacak ama nereye? Ya da yapmak istediğiniz verilerinizin birer tanesini tamamen silmek mi?

Evet hocam mesela size şöyle anlatayim a sütununun 1. Satırını alicam , a sütununun 2. Satırını almayacağım
Bu şekilde 3000 tane veriyi
1500 e düşüreceğim ama diyebilirsiniz ki yarısını sil verinin diye öyle olmucak
1 er atlayarak hücreleri seçmem gerekiyor

 

[Cengiz Demir]

Çok sık yapılmayacak bir işlemse;

Verilerin A sütununda olduğunu varsayarsak, (A1 hücresi Başlık) B1 hücresine Bir başlık yazın. (Örn. Seç) B2 hücresine A yazın B3 hücresine B yazın ve B2 ve B3 seçip kopyalayın ve B4-B2500 arasını seçip yapıştırın. B1 hücresini seçip veriden filtreleme yapın. Seç sütunundan A 'yı filtreleyin.
Daha sonra A sütunundaki verileri seçin kopyalayın ve istediğiniz yere yapıştırın.

 

[tomx]

Çok sık yapılmayacak bir işlemse;

Verilerin A sütununda olduğunu varsayarsak, (A1 hücresi Başlık) B1 hücresine Bir başlık yazın. (Örn. Seç) B2 hücresine A yazın B3 hücresine B yazın ve B2 ve B3 seçip kopyalayın ve B4-B2500 arasını seçip yapıştırın. B1 hücresini seçip veriden filtreleme yapın. Seç sütunundan A 'yı filtreleyin.
Daha sonra A sütunundaki verileri seçin kopyalayın ve istediğiniz yere yapıştırın.

Denicem hocam alakanız için teşekkür ederim

 

[YUSUF44]

Aslında hala soruma cevap verip kopyalanan verilerin ne olacağını belirtmediniz ama şöyle yardımcı olmaya çalışayım:

Aşağıdaki makro sayfa1'in 2. satırından itibaren birer satır atlayarak satırları sayfa2'ye kopyalar:

Sub satir_atlat()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "A").End(3).Row 'Sayfa1'in son dolu satır numarasını bul
For i = 2 To son Step 2 '2. satırdan itibaren birer satır atlayarak işlem yap
    yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1 'Sayfa2'nin ilk boş satır numarasını bul
    s1.Rows(i).Copy s2.Cells(yeni, "A") 'i satırını sayfa2'nin ilk boş satırına kopyala
Next
End Sub