- Katılım
- 28 Haziran 2007
- Mesajlar
- 246
- Excel Vers. ve Dili
- Excel 2003 Tr
Arkadaslar problemimi dosyada acıkladım.
Herkese simdiden tesekkur ediyorum.
Herkese simdiden tesekkur ediyorum.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=IF(MOD(ROW();30)=4;1;B3+1)
=EĞER(MOD(SATIR();30)=4;1;B3+1)
Merhaba.Sayın Sezar dosyayı yeniden duzenledim. bir goz atarsaniz sevinirim.
estagfrullah üstad. sizin mesaj gumburtuye gitmedi de. benim her otuz satırlık alanım standart olarak 30'ar 30'ar 1200 satıra kadar devam ediyor. her hücreyi 1,2,3, diye devam ettirmek yerine hucreleri formulle doldurmak dosya boyutu acisindan daha sıkıntılı olacak kanısındayım. yanılıyorsam duzeltin lutfen.... yazdıgınız formulleri not ettim. dosyayı tamamlarken mutlaka iseye yarayacaktır. gereksiz bilgi yoktur hocamBizim mesaj gümbürtüye gitti sanırım
Public Sub SiraNo()
SonSatır = [E65536].End(3).Row
For i = 4 To SonSatır
j = j + 1
If j > 30 Then j = 1
Cells(i, "B") = j
Next i
End Sub
Merhaba.Bizim mesaj gümbürtüye gitti sanırım
Sub rapor()
Dim sonsat As Long, sat As Long, adr1 As String, adr2 As String
Sheets("KdvList").Select
sonsat = Sheets("Gid").Cells(65536, "E").End(xlUp).Row
Sheets("KdvList").Range("A7:M65536").ClearContents
sat = 7
For i = 4 To sonsat
If Sheets("Gid").Cells(i, "N") <> "" Then
adr1 = Range(Cells(i, "E"), Cells(i, "N")).Address
adr2 = Range(Cells(sat, "A"), Cells(sat, "J")).Address
Sheets("KdvList").Range(adr2).Value = Sheets("Gid").Range(adr1).Value
Sheets("KdvList").Cells(sat, "M").Value = Sheets("Gid").Cells(i, "P").Value
sat = sat + 1
End If
Next i
MsgBox "R A P O R G Ü N C E L L E N D İ ..!!", vbOKOnly
End Sub