sıra numarasını düzenlemek

[acebeci]

Değerli arkadaşlarım elimde bir listem var bu listeyi yazdırırken aşağıdaki kodu kullanarak "0" değerini bazen yazdırıyorum bazen yazdırmıyorum "0" değeri yazılmasın dediğimde bakiyesi 0 olan müşteriler çıkınca sıra numarası doğal olarak bozuluyor yani 5 numaralı müşteriden sonraki kişi bakiyesi "0" sa çıkıyor sıralamada 7 sıra numaralı müşteri 5 sıra numarasından sonra geliyor sıra numaraları örnek 1-2-4-7-8-11-12-17 oluyor.benim istediğim "0" değerliler yazılmasın dediğimde aradan müşteriler çıksa da sırama 1-2-3-4-5....... gibi tekrar düzgün sıra numarası verebilirmiyiz.Şimdiden hepinize çok teşekkürler.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "LİSTE" Then
cevap = MsgBox("0 değerler yazdırılsın mı?", vbYesNo, "0 DEĞERLER")
If cevap = vbNo Then
For i = 2 To Cells(1, 3).End(xlDown).Row
If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
Rows(i).Hidden = True
End If
Next i
Else
ActiveSheet.UsedRange.EntireRow.Hidden = False
End If
End If
End Sub

 

[Necdet]

Merhaba,

Makrodan &#246;nce dosyay&#305; g&#246;rseydik bence daha iyi olurdu.

S&#305;ra numaralar&#305; nerde Hangi S&#252;tunda? Belki kod yazmadan da &#231;&#246;z&#252;lebilir ne bileyim illakine dosyay&#305; g&#246;rmekte yarar var.

 

[acebeci]

Tabi hocam haklısınız pardon

 

[acebeci]

sayın hocam çok özür dilerim bugün bende bir problem var galiba dosyayı birtürlü yükleyemedim

 

[Skorpiyon]

Say&#305;n acebeci,

S&#305;ra numaralar&#305;n&#305;n A s&#252;tununda var oldu&#287;unu d&#252;&#351;&#252;nerek, a&#351;a&#287;&#305;daki kodlar&#305; deneyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "L&#304;STE" Then
cevap = MsgBox("0 de&#287;erler yazd&#305;r&#305;ls&#305;n m&#305;?", vbYesNo, "0 DE&#286;ERLER")
If cevap = vbNo Then
For i = 2 To Cells(1, 3).End(xlDown).Row
If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
Rows(i).Hidden = True
End If
Next i
Else
ActiveSheet.UsedRange.EntireRow.Hidden = False
End If
End If

b = 1
For a = 2 To [C65536].End(xlUp).Row + 1
If Rows(a - 1).Hidden = False Then
Cells(a - 1, 1) = b
b = b + 1
End If
Next a
End Sub

 

[acebeci]

sonunda halloldu galiba bağlantıda bir sorun vardı dosya ekde

 

[Skorpiyon]

&#220;stteki mesaj&#305; inceleyiniz.

 

[acebeci]

Çok değerli sayın hocam sıra numarası A sütunu 3. satırdan başlıyor acaba nereyi düzelteceğim uğraştım ama bulamadım ayrıca emeğinizden dolayı çok teşekkür ederim

 

[Skorpiyon]

Say&#305;n acebeci,

A&#351;a&#287;&#305;da kodlar&#305;n&#305;z aras&#305;na k&#305;rm&#305;z&#305; ile belirtilen k&#305;s&#305;m ekleyerek dener misiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "L&#304;STE" Then
cevap = MsgBox("0 de&#287;erler yazd&#305;r&#305;ls&#305;n m&#305;?", vbYesNo, "0 DE&#286;ERLER")
If cevap = vbNo Then
For i = 2 To Cells(1, 3).End(xlDown).Row
If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
Rows(i).Hidden = True
End If
Next i
Else
ActiveSheet.UsedRange.EntireRow.Hidden = False
End If
End If
b = 1
For a = 3 To [C65536].End(xlUp).Row
If Rows(a).Hidden = False Then
Cells(a, 1) = b
b = b + 1
End If
Next a
End Sub

 

[acebeci]

Çok değerli hoçam gerçekten çok teşekkür ederim sağolun elinize sağlık problemi kökünden çözdünüz sağolun iyiki varsınız.iyiki varsın Excel Form

 

[acebeci]

Çok değerli hocalarım sayın şaban hocamın yazmış olduğu kod çok güzel çalışıyor.Ama çok önemli bir problem çıktı daha yeni farkettim bu sıralama işlemini diğer tüm sayfalarda da yapıyor yani işler karıştı.bu kodları sadece liste sayfasında kullanmak istiyorum acaba nasıl yapabilirim lütfen yardım edin(Yani sadece Liste sayfasında yaz dediğim zaman bu formül geçerli olacak)

 

[Skorpiyon]

b = 1 kodunun &#252;st&#252;ne;
Sheets("Liste").select
yaz&#305;n yeter.

 

[acebeci]

Sayın Şaban bey ilginizden ve yardımınızdan dolayı size çok müteşekkirim.sağolun varolun