alt alta girilmiş bir grup veriyi konrol ederek kaydetmek

[a_self_lion]

Selam arkadaşlar uğraşıpta yapamadığım bir konu daha var
detaylı açıklamayı ekte gönderiyorum çünkü burda açıklamam karışık olur..

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz

 

[a_self_lion]

güzel mantık benim aklıma gelmemişti sanırım işimi çözecek inceleyeyim iyice ....teşekkürler :mutlu:

 

[a_self_lion]

Sayın Zafer bey alltta ki kodları anlayamadım biraz açıklarsanız sevinirim.

SAT = Cells(65536, 1).End(xlUp).Row + 1

Cells(SAT, 1).Select

If ActiveCell.Offset(-1, 0) = "" Then ActiveCell.Offset(0, 0) = 1 Else ActiveCell.Offset(0, 0) = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1) = FISNO

 

[a_self_lion]

fiş sıra no varya orda da sorun var gibi onu nasıl çözülebilir acaba

 

[zafer]

Merhaba

1 - 1 sürunda sondan başlayarak üste doğru ilk dolu hücrenin satır numarasını alıyor sizin yazdıracağınız satır onun altındaki hücre olacağı için 1 le topluyoruz.

2 - cells(satır no,sütün no)
cells(yukarıda sat'la seçilen satır no, birinci sütun) seçilir.
Sat=5 ise cells(5,1)olarak görürü bu A5 hücresi seçilecek demektir.

3 - offset işlevlerde ki kaydır dır. ActiveCell.offet(1,0) anlamı aktif hücrenin 1 alt satırını seç , sütun aynısı kalsın oluyor (1,1) olsaydı 1 satır aşağı 1 sütün sağ daki hücreyi seç olurdu

eğer aktif hücreyi A5 hücresi olarak kabul edersek
açılımı a4= boş ise a5=1 değilse a5 hücresi =a4 hücresindeki değer +1 oluyor.


Modüle gidip Makronun üzerinde F8 tuşuna basıp adım adım makroyu çalıştırırsanız
değerleri görebilirsiniz

F8 ile ilerlerken
SAT = Cells(65536, 1).End(xlUp).Row + 1
kodunu üzerine gelip mouse ile SAT yazısının üzerinde durursanız aldığı değeri görürsünüz.

Karışıkmı oldu ,Anlatabildim mi

 

[a_self_lion]

yok anladım sadece benim data kayıtlarımda yukardan kontrol ettiriyordum sizinki benimkinin tam tersiymiş

birde fiş sıra no varya orda proplem çıkartıyor onada bir bakarsak sanırım sorun çözülmüş olacak...
Teşekkürler :mutlu:

 

[a_self_lion]

fiş sıra no olayını çözdüm yalnız birim fiyatını entere basınca satır ekleye basmadan
o macro çalışabilir mi acaba?

 

[zafer]

İyi Akşamlar