For Next Uygulaması

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Merhaba arkadaşlar. For Next makrosu nasıl kurulur, bu konuda yardımcı olur musunuz. Örneğin 1. satırdan itibaren komple satır aç, 87. satırda dur diye bir makro herhalde For Next ile yapılabilir. Bu konuda yardımcı olur musunuz !!! Teşekkürler.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,216
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Kod:
Sub test()
For sut = 1 To 87
Rows(sut).Insert Shift:=xlDown
Next
End Sub
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
V.Basic For Applications çok teşekkürler. Yalnız satır açarken her bir satır arasını değil de, verileri komple 87 satır aşağıya öteliyor. Satır açma işlemini 1. ile 2., 2. ile 3. .... şeklinde yapmak mümkün mü ?
 
Katılım
8 Eylül 2007
Mesajlar
9
Excel Vers. ve Dili
office 2003
amacım visual basic öğrenerek program derleyebilmek. vba bana çekici geldi ve 1 aydır çalışıyorum. vba öğrenmek visual basic de işime yarayacakmıdır. yoksa vba ile vakit mi? harcıyorum. Hedefim Visual Basic 6.0 iken. Cevabınız için şimdiden teşekkür ederim.

Saygılarımla;
 
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
amacım visual basic öğrenerek program derleyebilmek. vba bana çekici geldi ve 1 aydır çalışıyorum. vba öğrenmek visual basic de işime yarayacakmıdır. yoksa vba ile vakit mi? harcıyorum. Hedefim Visual Basic 6.0 iken. Cevabınız için şimdiden teşekkür ederim.

Saygılarımla;
vba, vb nin küçük ve sadeleştirilmiş bir parçasıdr. vb daha karmaşıktır.
Ancak vba nın vb de size fyadası olacağı kesindir. Yalnız bazı kodlar birabir aynı yazılmaz.... hangileri bilmiyorum personel şefi iken baya uğraşmıştım vba ve vb ile ama şimdi bir çok şeyi unuttum daha evvel yaptığım bir iş için 2 haftadır cevap bekliyorum... ilgileniyorsanız asla kopmayın koparsanız unutursunuz.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,216
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Sayın serdarokan Bu şekil deneyiniz.
Kod:
Sub test()
For sut = 2 To 87 Step 2
Rows(sut).Insert Shift:=xlDown
Next
End Sub
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Çok Teşekkürler

Çok teşekkürler sayın V.Basic For Applications. Şimdi tam istediğim gibi oldu. Elleriniz dert görmesin, sağlıcakla kalın. Tekrar tekrar teşekkürler.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,216
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
Rica ederim
 
Üst