Çö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 · 20 Eki 2023

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 SATIR 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 SATIR 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 · 20 Eki 2023

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 · 20 Eki 2023

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 SATIR ekleyecek ( tabiki eklenecek satırın altında da başka veri varsa verileri yani satırları aşağı kaydırarak araya yeni SATIR 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 · 21 Eki 2023

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 SATIR eklemesi , SATIR 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 · 22 Eki 2023

Merhaba.Deneyiniz bir modüle ekleyip.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kapudanpasa · 23 Eki 2023

Refaz' Alıntı:
Merhaba.Deneyiniz bir modüle ekleyip.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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 SATIR 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 · 23 Eki 2023

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.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Refaz · 23 Eki 2023

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 · 23 Eki 2023

Refaz' Alıntı:
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 · 23 Eki 2023

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

Kapudanpasa · 23 Eki 2023

Refaz' Alıntı:
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 · 23 Eki 2023

Kapudanpasa' Alıntı:
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 · 23 Eki 2023

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.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Refaz · 23 Eki 2023

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

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kapudanpasa · 23 Eki 2023

Refaz' Alıntı:
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.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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 · 23 Eki 2023

Kapudanpasa' Alıntı:
mükerrer olmaması için de bir kod yazarsan muhteşem şekilde olacak

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

Kapudanpasa · 24 Eki 2023

Refaz' Alıntı:
Rica ederim,14.Mesajı görmediniz galiba.

Gördüm fakat U Daki formülü de veri olarak gördüğü için alta boş SATIR 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 · 24 Eki 2023

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

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kapudanpasa · 24 Eki 2023

Refaz' Alıntı:
~~If .Cells(i, "U").Value > 0 Then~~

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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

Refaz · 24 Eki 2023

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.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Foruma hoş geldin 👋 Ziyaretçi

Çö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

Ekli dosyalar

Refaz

muygun

Ekli dosyalar

Kapudanpasa

Ekli dosyalar

Kapudanpasa

Refaz

Kapudanpasa

Ekli dosyalar

Refaz

Refaz

Kapudanpasa

Refaz

Kapudanpasa

Refaz

Refaz

Refaz

Kapudanpasa

Refaz

Kapudanpasa

Ekli dosyalar

Refaz

Kapudanpasa

Refaz

Konuyu okuyanlar