Çözüldü Satır Ekleme - stok listesi sonundaki bakiye sütunu dolu ise alt tarafa satır ekle A dan N ye kadar olan stok bilgilerini eklediğin satıra kopyala ?

[Kapudanpasa]

Merhaba Arkadaşlar

ekte yer alan listemde A dan N ye kadar stok bilgilerim yer almakta sonrasında ise bu stokların çıkışını yapmaktayım fakat her zaman stok bitmeyebiliyor bitmeyen stoklarımı bir alt satırda kg bilgisi hariç ( orası mümkünse bakiye sütununda kalan rakam gelsin ) alt tarafa satır eklenmesini ve bir üstteki hüçredeki bilgileri de kopyalayıp indirmesini istiyorum bunu otomatikte yapabilir bakiyeyi gördüğü zaman yada sabit bir makro düğmesi ile de olabilir tabiki hangi satırdaysam oranın altına yapması lazım


not : ben ekteki listede bunu manuel yapıyorum en sonda bakiye kalınca alta satır ekleyip ctrl+D ile bilgileri aşağı indiriyorum sonrada kalan bakiyeyi = ile ilgili sutundan alıp o alt satıra eklıyorum.


yardımlarınızı rica ediyorum . teşekkür ederim şimdiden

 

[muygun]

Merhaba;
Hangi sütun verileri aşağı alınacak net değil.
Bu nedenle C ve D sütunu için kodlama yaptım. (Diğerlerini siz tamamlarsınız.)
İyi çalışmalar.

 

[Kapudanpasa]

Merhaba öncelikle teşekkür ederim ilginiz için

A sütununu değilde
U sütunu yani BAKİYE sütununda 0 dan büyük veri varsa alta satır ekleyecek ( tabiki eklenecek satırın altında da başka veri varsa verileri yani satırları aşağı kaydırarak araya yeni satır ekleyip ) bu eklenen satırada bir üst satırındaki a-b-c-d-e-f-g-h-ı-j-k-l-m-n sütunundaki veriler ve formüller otomatik gelecek ve fakat J sütunundaki miktar1 bölümüne U sütunundaki Kalan bakiye gelebilirse çok daha iyi olur yoksa elle kalan bakiyeyi koymak zorunda kalıcam.

 

[Kapudanpasa]

Kalan kısıma yardım edebilecek kimse yokmu acaba istediğim Bakiye sütununda 0 dan büyük veri görünce tetiklenip alt tarafa satır eklemesi , satır eklendikten sonrada üst satırdaki formül ve verileri ağaşı kopyalaması sadece J sütununa üstekki ve en sağdaki bakiye sütunundaki kalan rakamı getirmesi

 

[Refaz]

Merhaba.Deneyiniz bir modüle ekleyip.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Kapudanpasa]

Merhaba.Deneyiniz bir modüle ekleyip.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Merhaba kod çok güzel olmuş ellerinize sağlık bazı eksıkler var onlarda şunlardır.

1- üst Hücreyi kopyalamayı yapıyor fakat bazı sütunlarda formül var bu sebeple formülleri ile birlikte kopyalama yapması lazım.

2 - Alta satır ekleyip kopyalama yapma tetiğinin ''U'' Stununda ki verinin 0 dan büyük bir veri oldugunu görünce tetiklenmesi lazım kod var sanki ama çalışmadı makro çalıştırır gibi manuel çalıştırabildim kodu otomatik tetiklenmiyor

3- son olarak her seferınde manuel çalıştırdıgım için kodu aynı işlemi mükerrer yapıyor hani bu kopyalamayı daha önce yaptım diyip durmuyor

 

[Refaz]

Rİca ederim.Formül olayı için alttaki gibi deneyin mıbilden düzenleme yaptım ama deneyemedim verdiğim kodu.
Tetikleme olayını anlamadım nasıl istiyorsunuz?
U sütunundaki büyük sıfır ise diye şart ekledim evet.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Yada alttaki gibi değiştirin son koddaki yeri.

.Range("A" & i & ":N" & i ),.copy .Range("A" & i +1 )
.Range("U" & i ). Copy .Range("J" & i + 1)

 

[Kapudanpasa]

Yada alttaki gibi değiştirin son koddaki yeri.

.Range("A" & i & ":N" & i ),.copy .Range("A" & i +1 )
.Range("U" & i ). Copy .Range("J" & i + 1)

malesef kod çalışmadı

 

[Refaz]

Tamam akşama doğru bakarım.Tetikleme?

 

[Kapudanpasa]

Tamam akşama doğru bakarım.Tetikleme?

Tetiklemeden kastım : ''U'' Sütunun da veriyi görünce kod çalışmıyor ben makroları çalıştır dediğimde işleme başlıyor. her seferinde makro çalıştır yaptıgımda da alta işlemleri mükerrer yapıyor yani aynı kaydı tekrar bir altına atıyor.

 

[Refaz]

U'' Sütunun da veriyi görünce kod çalışmıyo

Kod nasıl veriyi görecek?
Görmesi için butona tıklanması gerekmez mi?
Mükerer olmaması için alt ve üst aynı ise birinin satırını sil şartı eklenebilinir.

 

[Refaz]

Alttaki gibi denedim oldu bende. .Range("A" & i & ":N" & i).Copy burdaki N yerine W de yazabilirsiniz N ye kadar yazmışsınız normalde.
Mükerrer olmaması için ise U ve J sütunlarındaki bakiye eşitse eklememe kodu yazacağım.Olmazsa benden bu kadar.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Mükerre olayı içinde kod ekledim çalışmazsa benden bu kadar, kolay gelsin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Kapudanpasa]

Alttaki gibi denedim oldu bende. .Range("A" & i & ":N" & i).Copy burdaki N yerine W de yazabilirsiniz N ye kadar yazmışsınız normalde.
Mükerrer olmaması için ise U ve J sütunlarındaki bakiye eşitse eklememe kodu yazacağım.Olmazsa benden bu kadar.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ellerine sağlık ''A'' dan "N" Ye kadar olan aralıkları kendım belirledim oynama yaparak
mükerrer olmaması için de bir kod yazarsan muhteşem şekilde olacak teşekkür ederim.

 

[Refaz]

mükerrer olmaması için de bir kod yazarsan muhteşem şekilde olacak

Rica ederim,14.Mesajı görmediniz galiba.

 

[Kapudanpasa]

Rica ederim,14.Mesajı görmediniz galiba.

Gördüm fakat U Daki formülü de veri olarak gördüğü için alta boş satır ekliyor onu halletmeye çalısıyordum size zahmet vermıyım dedım ama beceremedım.

''U'' Da formül var =EĞER(P5<>"";(J5-P5);"") ilgili sütunda veri varsa bakiye göstersin yoksa göstermesin dedim çünkü kod U da veri görünce asağı indirecek burada veri olmadıgı halde onu görüp indiriyor

 

[Refaz]

If .Cells(i, "U").Value > 0 Then

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Kapudanpasa]

If .Cells(i, "U").Value > 0 Then

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

çok teşekkür ederim. Allah razı olsun sorunum çözüldü tamamen

 

[Refaz]

Amin sizdende.
Eğer daha fazla koşul sağlansın istiyorsanız alttaki kodu deneyin.Yani A:N arasındaki verileride kıyaslama yaptım.


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.