Otomatik numaralandırma

[femre]

merhaba arkadaşlar, şöyle bi problemim var:

M sutunu Ada numarası ve N sutunu parsel numarasını göstermekte.

mesela 17860nolu ada için (300 tane adam var) düşünelim ve içerdiği parsel adedi ise 15 olsun.

Fakat bendeki excel dosyasında parsel olarak 1,5,10,15inci parseller kayıtlı.

Ada numarasını aynen alarak(M sütunu) kayıtlı olmayan her parsel için (2,3,4,6,7,8,9,11,13,14) yeni satır açıp ilgili satırdaki her hücreye "BOÞ" yazmasını istiyorum...(ada no ve parsel hariç ; buraya kendi adasını ve parselini yazmalı)
Bunu nasıl yaparız ? :?
saygılar...

daha iyi anlaşılması için dosyam ektedir
not: 005A, 005B li parsel numaraları aynı parseli kullanan kişi anlamında kullanılıyor

 

[veyselemre]

hangi ada numaralarının olduğunu ve bu adalarda kaç parsel olduğunu nerden bileceğiz

 

[femre]

parsel sayısı mecut yazılan rakamlardan en büyüğü kabul edilecek, örnek dosyamda en büyük rakam 15, buna göre 15 kadara numaralandırma yapılır.

 

[veyselemre]

ekteki örneği inceleyin

 

[femre]

veyselemre kardeşim çok sağolasın.....verdiğin makro çok güzel çalışıyor k::

bir sorum daha var bi bakarsan çok sevinirim:

http://www.excel.web.tr/viewtopic.php?t=13170

 

[femre]

sayın veyselemre ,
"eksik parsel numaralarını tamamlama" dosyası çok işe yaradı , çok sağol...

fakat M sutnunu aynen kopyaladığı gibi J sütnunu da aynen kopyalattırabilir miyiz?

böyle bi modifiyeyi nasıl yaparız? :düsün:

 

[veyselemre]

[vb:1:9edac8ebed]For YY = 1 To SON_S2_M
SONS1 = SONS1 + 1
Sayfa1.Range("A" & SONS1 & ":S" & SONS1) = "BOÞ"
Sayfa1.Cells(SONS1, "j") = 1
Sayfa1.Cells(SONS1, "M") = Sayfa2.Cells(YY, "M")
Sayfa1.Cells(SONS1, "N") = Sayfa2.Cells(YY, "N")
Next YY[/vb:1:9edac8ebed]

 

[femre]

sayın veyselemre gösterdiğiniz eklemeyi yaptım fakat hep 1 yazıyor j sutununa...

en büyük değerli parsel numarasının OSB kodu ne ise onu yazmalı... aynen M sutununda olduğu gibi... :?

 

[veyselemre]

[vb:1:9122477786]For YY = 1 To SON_S2_M
SONS1 = SONS1 + 1
Sayfa1.Range("A" & SONS1 & ":S" & SONS1) = "BOÞ"
bul = Sayfa1.Range("M" & SONS1 & ":M2").Find(Sayfa2.Cells(YY, "M")).Row
Sayfa1.Cells(SONS1, "j") = Sayfa1.Cells(bul, "j")
Sayfa1.Cells(SONS1, "M") = Sayfa2.Cells(YY, "M")
Sayfa1.Cells(SONS1, "N") = Sayfa2.Cells(YY, "N")
Next YY[/vb:1:9122477786]

 

[femre]

sayın veyselemre çok uğraştırdım kusura bakmayıon ama bu son değişiklikte aşağıdaki hatayı veriyor :agla:

run time error 91 :?

object variable or width block variable not set :shock:

 

[a_self_lion]

modüldeki macrolarımı nasıl çalıştırabilirim

Selam arkadaşlar benim küçük bir sorunum var bir türlü bulamıyorum modüle yazdığım bir kod dizimim var bu listbox_yenile bunu bir çok yerde kullanıyorum ve heryere yazmak aynı kodları dosyamın büyümesine neden oluyor modüle yazdım bu kodları ama nasıl (yani command button içine yazdığım kodların en sonunda da bu listbox_yenile macrosunu çağırmam lazım ki bunun nasıl yapılacağını bilmiyıorum) teşekkürler