Sil ve ekle acil yardım

[nihatra]

Private Sub CommandButton1_Click()
Dim i As Byte
son = [M65536].End(3).Row
For i = 2 To 12
Range(Cells(3, i), Cells(i, son)).Value = Controls("Textbox" & i + 9).Text
Controls("Textbox" & i + 9).Text = ""
Next
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = " BİLGİ GİRİŞİ"
MsgBox aciklama, buton, baslik
End Sub
İLE KAYIT YAPIYORUM
SORU 1: EKLE DENİLDİĞİNDE EN SON DOLU SATIRDAN 9. SATIRDAN SONRA 10.SATIRDAN İTİBAREN 9 SATIR EKLEYECEK
SORU 2: SİL DENİLDİĞİNDE 9 SATIR SİLECEK
TEŞEKKÜR EDER SAYGILAR SUNARIM

 

[Orion1]

ilk 9 satırı siler.

Rows("1:9").Delete

 

[ottoman71]

ilk 9 satırı siler.

Rows("1:9").Delete

Benzer bir konu açmıştım. Kendi isteğine uyarlayabilirmisin. Yada arkadaşlar yardımcı olur galiba.

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

ottoman71

Giriş: 27/01/2010
Bölüm: Bursa
Mesaj: 33
Excel Vers. ve Dili:
Excel 2003 VB Makro Makro ile satır sildirme ve satır ilave etme

--------------------------------------------------------------------------------
Merhaba arkadaşlar.

Örneğin 1 sütünda 100 satırlık bilgi bulunmakta.Bu sütün "A" sütünu olsun.

1-) Satır başından insert yaparak 24 satırlık bilgi ekleyeceğiz.Toplam satır sayısı 124 oldu. (24 satırlık bilgi sabit değer. Her zaman eklenecek)
2-) Eklenen 24 satırın; 5.,6.,7. ve 8. satırlarını 30., 31., 32. ve 33. satırdaki bilgi ile değiştireceğiz. (kopyala - yapıştır olacak)
3-) Yine eklenen 24 satırın 12. satırdaki bilgi, 38. satırdaki bilgi ile değişecek.
4-) 25. satırdan itibaren 63. satıra kadar olan 38 satırlık kısım silinecek.
5-) 70. satır silinecek

Bu yukarıdaki aşamaları makro ile yapabilirmiyiz.

Yardım ederseniz çok memnun olurum.
Şimdiden teşekkur ederim.


31-03-2010, 11:23 #2
N.Ziya Hiçdurmaz
Uzman

Giriş: 27/04/2007
Bölüm: İnegöl
Mesaj: 1,705
Excel Vers. ve Dili:
Microsoft Office 2003 yanıt

--------------------------------------------------------------------------------

Kod:
Sub satirislemleri()
s = 1
For sat = 1 To Cells(65536, "a").End(xlUp).Row
s = s + 1
Cells(s - 1, "a").Insert
If s = 25 Then Exit For
Next
Rows("5:5") = Rows("31:31").Value
Rows("6:6") = Rows("32:32").Value
Rows("7:7") = Rows("33:33").Value
Rows("8:8") = Rows("34:34").Value

Rows("12:12") = Rows("38:38").Value
Rows("25:63").Delete
Rows("70:70").Delete
End Sub