Otomatİk Satir No

[akdeniz33]

ArkadaŞlar Excelİ İyİ BİldİĞİm SÖylenemez, Ancak Bİ Yere Takildim Excel ÇaliŞma Sayfasinda Bİr Tablom Var A SÜtununa Sira No Yazdim 1.2.3.4........... Dİye Gİdİyor Dİyelİm Kİ 5.satiri Sİldİk, 123467.... DeĞİlde Sira No Su Otomatİk Olarak 123456789..........Şeklİnde Olacak Şekİlde Bİr ÇÖzÜmÜ Varmi? Şİmdİden TeŞekÜrler



Not:makrodan Koddan Anlamam

 

[kombo]

Sn akdeniz33
Şöyle birşey olabilir.

A2 hücresine

=E&#286;ER(b2<>"";BA&#286;_DE&#286;_DOLU_SAY($a$1:a1);"")

Yaz&#305;n a&#351;a&#287;&#305;ya &#231;ekerek kopyalay&#305;n.

 

[Seyit Tiken]

Aşağıdaki kodu butona atayarak deneyiniz.

Sub Düğme1_Tıklat()
[a1] = 1
[a2] = 2
[a1:a2].AutoFill Destination:=Range("A1:A30")
End Sub

Bir dosya ile desteklesek fena olmaz. Rakam dizinini silerek veya bozarak sonucu gözlemleyiniz. Ekli dosyayı inceleyiniz.

 

[Ali]

Arkada&#350;lar Excel&#304; &#304;y&#304; B&#304;ld&#304;&#286;&#304;m S&#214;ylenemez, Ancak B&#304; Yere Takildim Excel &#199;ali&#350;ma Sayfasinda B&#304;r Tablom Var A S&#220;tununa Sira No Yazdim 1.2.3.4........... D&#304;ye G&#304;d&#304;yor D&#304;yel&#304;m K&#304; 5.satiri S&#304;ld&#304;k, 123467.... De&#286;&#304;lde Sira No Su Otomat&#304;k Olarak 123456789..........&#350;ekl&#304;nde Olacak &#350;ek&#304;lde B&#304;r &#199;&#214;z&#220;m&#220; Varmi? &#350;&#304;md&#304;den Te&#350;ek&#220;rler



Not:makrodan Koddan Anlamam

Makro anlam&#305;yorsan&#305;z pratik &#231;&#246;z&#252;m &#351;u olabilir .

Diyelimki A2 den itibaren s&#305;ra no vereceksiniz.

1. y&#246;ntem =SATIRSAY(A2:$A$2) yaz&#305;p a&#351;a&#287;&#305; do&#287;ru &#231;ekersiniz.

2 .Y&#246;ntem A2 ikinci sat&#305;rda oldu&#287;u i&#231;in =SATIR()-1 yaz&#305;p a&#351;a&#287;&#305; do&#287;ru &#231;ekersiniz.

 

[Terkanli]

Merhaba akdeniz33
a&#351;a&#287;&#305;daki kodu kullanabilirsin. VB i&#231;inde bir mod&#252;le kopyala.
Makro &#231;al&#305;&#351;t&#305;r d&#252;&#287;mesinden SiraNoVerCokSatir makrosunu &#231;al&#305;&#351;t&#305;r.
e&#287;er B s&#252;t&#252;nundaki h&#252;creler dolu ise A s&#252;t&#252;nunda A2 den ba&#351;layarak s&#305;ra nosu atacakt&#305;r.

Sayg&#305;lar,

Attribute VB_Name = "SiraNoVer"
Sub SiraNoVerCokSatir()
Dim L As Long
Dim SonSatir As Long
Set WF = WorksheetFunction
SonSatir = WF.CountA(Range("B:B")) - 1
[A1] = "S&#305;ra No"
For L = 1 To SonSatir
Cells(L + 1, 1) = L
Next L
End Sub

 

[Necdet]

Merhaba,

Son zamanlarda Sıra Numarası için ALTTOPLAM(SUBTOTAL) kullanmaya başladım.

Bunu da Sayın A.Akyurek'ten öğrendim. Avantajları oldukça fazla.
Gerek sıralama yapıldığında, gerek süz yapıldığında sıra no hep 1 den başlayarak gitmesi.

Ekteki dosyayı inceleyiniz.

A2 deki Formülü yazdıktan sonra aşağıya doğru kopyalayınız

=SUBTOTAL(3;$B$2:B2)
=ALTTOPLAM(3;$B$2:B2)

 

[Ali]

Necdet Bey alttoplaml&#305; bu &#246;rne&#287;inizde aylar&#305; do&#287;ru s&#252;z&#252;yormu?

 

[Necdet]

Merhaba Ali Bey,

Bu y&#246;ntemde (nedenini bilmiyorum) son sat&#305;r&#305; S&#220;Z yaparken g&#246;steriyor, onu da alt toplam koyarak &#231;&#246;z&#252;m&#252;n&#252; buldum.

Dosyay&#305; d&#252;zelttim inceleyebilirsiniz.

 

[Ali]

Necdet Bey

=ALTTOPLAM(103;$B$2:B2) &#351;eklinde deneyiniz.O zaman do&#287;ru s&#252;z&#252;lmesi laz&#305;m.

 

[Okyanus101]

Sn. Necdet Yesertener
Ger&#231;ekten g&#252;zel ve mant&#305;kl&#305; . En altta toplam sat&#305;r&#305; olmasa da olur.
Te&#351;ekk&#252;r ederim.

 

[Necdet]

Ali Bey, sizin dedi&#287;iniz gibi de olsa sonu&#231; ayn&#305;, son sat&#305;r&#305; s&#252;z'&#252;n de&#287;eri ne olursa olsun g&#246;steriyor.

 

[Ali]

Ali Bey, sizin dedi&#287;iniz gibi de olsa sonu&#231; ayn&#305;, son sat&#305;r&#305; s&#252;z'&#252;n de&#287;eri ne olursa olsun g&#246;steriyor.

Necdet Bey do&#287;rusu &#351;u &#351;ekilde olmas&#305; laz&#305;m A2 h&#252;cresine

=ALTTOPLAM(3;$B$1:B2)-1 yaz&#305;p a&#351;a&#287;&#305; do&#287;ru &#231;ekilmelidir.

 

[Necdet]

Asl&#305;na bakarsan&#305;z mant&#305;k olarak ayn&#305;, ama bu haliyle sorunsuz &#231;al&#305;&#351;t&#305; Ali Bey,

Yeni bir y&#246;ntem oldu, umar&#305;m herkesin i&#351;ine yarar.

Yukar&#305;daki dosyay&#305; da d&#252;zelteyim.

 

[akdeniz33]

Arkada&#350;lar &#199;ok Te&#350;ek&#220;r Eder&#304;m &#304;lg&#304;n&#304;ze, Daha Hen&#220;z Ver&#304;len &#199;&#214;z&#220;m &#214;rnekler&#304;n&#304; &#304;ncelemed&#304;m, Ancak Bu Kadar Kisa S&#220;rede Ve 4-5 Tane B&#304;rden &#199;&#214;z&#220;m &#214;ner&#304;s&#304; Ver&#304;lmes&#304; Ben&#304; &#350;a&#350;irtti, Do&#286;rusu Bu Beklem&#304;yordum. B&#304;r Kez Daha Te&#350;ek&#220;r Ed&#304;yorum.