-
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
Yardım Veri Taşıma Ve Silme
- Konbuyu başlatan trtyt20
- Başlangıç tarihi
- Katılım
- 28 May 2018
- Mesajlar
- 238
- En iyi yanıt
- 7
- Puanları
- 28
- Yaş
- 38
- Konum
- İstanbul
- Web sitesi
- analistadam.com
- Ad Soyad
- Özkan Sabancı
- Office Vers.
- Microsoft 365 Apps for enterprise TR
Merhaba,
Aşağıdaki kodları deneyiniz. (silmeyi yanlış anlamış olabilirim. Siz 2,4,6 dediğiniz için o şekilde yaptım.)
İyi Çalışmalar.
Aşağıdaki kodları deneyiniz. (silmeyi yanlış anlamış olabilirim. Siz 2,4,6 dediğiniz için o şekilde yaptım.)
İyi Çalışmalar.
Kod:
Sub selcuk_doldur()
For i = 2 To Range("D65000").End(3).Row Step 2
Cells(i - 1, 7) = Cells(i, 4)
Cells(i - 1, 8) = Cells(i, 5)
Cells(i - 1, 9) = Cells(i, 6)
Cells(i - 1, 14) = Cells(i, 10)
Cells(i - 1, 15) = Cells(i, 11)
Cells(i - 1, 16) = Cells(i, 12)
Cells(i - 1, 17) = Cells(i, 13)
Next
End Sub
Kod:
Sub selcuk_sil()
For i = 2 To Range("D65000").End(3).Row Step 2
Rows(i).Delete
Next
End Sub- Katılım
- 28 May 2018
- Mesajlar
- 238
- En iyi yanıt
- 7
- Puanları
- 28
- Yaş
- 38
- Konum
- İstanbul
- Web sitesi
- analistadam.com
- Ad Soyad
- Özkan Sabancı
- Office Vers.
- Microsoft 365 Apps for enterprise TR
Ayrıca dosyaya uygulanmış hali eklenmiştir.