Hücre Değeri 1'e eşit ise sütunda sıra numarasını artırmak

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Arkadaşlar herkese merhaba,

Excel sayfafasında, A3' ün değeri S3 hücresi ile aynı. ( S ) sütunu yardımcı sütun.Satırlar dolu olduğu zaman 1 değerini almaktadır.

Formüle ile ,
=+EĞER(S4=1;A3+1;"") ( a4 hücresinde olan formül )
=+EĞER(S4=1;A3+1;"") ( a5 hücresinde olan formül )

S sütunundaki 1 değerine sahip hücrelere göre, A3 ve sonrası hücreler 1'er sayı artırılıyor

S sütunundaki 1 olan sayılar B sütunundaki dolu değer itibari ile aşağıdaki formül ile 1 değerine ulaştırılıyor.
=+EĞER(B3>0;1;0)

Buna göre S sütunu değerleri her dolu satırda 1 değerine sahip oluyor. A3 ten itibaren S sütunu göz önünde bulundurularak her satır 1 den dolu satıra kadar sayıları artırılıyor.

Formül olan satırları makro ile nasıl yapabiliriz.

Yardımlarınızı rica ediyorum.

https://www.dosyaupload.com/ah5g

https://hizliresim.com/AD8ZJ0
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.
S sütununu başka bir işlem için kullanmayacaksanız, S sütununa veri yazmanın gereği yok aslında.
Eğer S sütununu başka bir işlemde kullanmayacaksanız kod'daki kırmızı kısımları silerek kullanabilirsiniz.
Kod, tıpkı mevcut formüllerinizdeki gibi B sütunundaki hücrelerin dolu/boş durumuna göre numara verir veya boş bırakır.
Rich (BB code):
Sub NUMARALAR()
    For sat = 3 To Cells(Rows.Count, "B").End(3).Row
        If Cells(sat, "B") <> "" Then
            Cells(sat, "A") = WorksheetFunction.Max(Range("A2:A" & sat - 1)) + 1
            Cells(sat, "S") = 1
        Else: Cells(sat, "A") = "": Cells(sat, "S") = 0
        End If
    Next
End Sub
 

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Ömer bey merhaba,

S sütunu yardımcı sütun için kullanılmıştı.Yani İşyeri türü olarak girdiğim (B sütunu dolu ise ) 1
Her işyeri türü adında girdiğim satır artırmak ve beyannamede satır açmak için kullanıldı.
B sütununda dolu olan değer kadar satır açmak gerek. B3 ve sonrakiler dolu ise A3 ten itibaren 1,2,3 diye gitmeli.
Yazdığınız kodları b sütunun dolu olmasına göre revize olması halinde çok güzel olacak gibi. Yanlış tarif etmiyorum değil mi ? Böyle olmalı gibi.

B3 ve sonrasında girilen her işyeri kadar A3 ve sonrası 1,2,3 diye gitmeli. Döngü B3 ve sonrasında dolu olan kadar çalışmalı.
Tekrar gözden geçirebilir misiniz ?

Saygılarımla.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Tekrar merhaba.
B sütununda olması muhtemel tüm seçenekleri (sayı/metin veya dolu/aralarda boş olma durumu gibi)
içerecek şekilde veri yazın. Ardından da formül kullanmadan, elde edilmesi gereken sonuçları A sütununa elle yazarak
yeni bir örnek belge yükleyin ki gereksiz yazışma olmadan sonuca ulaşılabilsin.

Döngü zaten B sütunundaki son dolu hücreye kadar gidiyor.
Anlamak istediğim B sütununda arada boş hücre olursa sayılar tekrar 1'den mi başlayacak yoksa kaldığı yerden devam mı edecek?
.
 
Üst