=eĞer(f2<=0;g2i2;eĞer(f2>=0;h2i2))

jackal310 · 17 Ağustos 2008

Sevgili kardeşlerim;

Sizleri tekrar rahatsız ediyorum... Yarın mağazamın sayımını yapacagım.. Bu yüzden =EĞER(F2<=0;G2*I2;EĞER(F2>=0;H2*I2)) ve =EĞER(F2>0;F2;0) formüllerinin makro ile yazılımına ihtiyacım var..
Formül olarak işlediğimde excel boyutu 30 mb'yi gördü.. Çok fazla kod bilmediğim için rica etsem bana bu kodu yapıştıracağım yere;

Private sub işlem()
............
...........

En sub

Şeklinde yazarmısınız... Şimdiden çok teşekkür ederim...

Erdem Erkul

Necdet · 17 Ağustos 2008

Merhaba,

Dosyanızı ekleyin ve sorunuzu destekleyiniz. Daha çabuk ve hızlı yanıt alırsınız.

jackal310 · 17 Ağustos 2008

Teşekkür

Öncelikle gösterdiğiniz ilgiye teşekkür ederim.. Dosyamı ekledım açıklama dosya içinde var.. Girişte veya vba bölümünde olaki şifre sorarsa şifre 123112...

Yardımlarınız için şimdiden teşekkür ederim...

tahsinanarat · 18 Ağustos 2008

E sutununun son dolu satırına kadar kopyalar

Dosyanız ektedir, formül kopyala makrosunu çalıştırdığınızda e sutunun son dolu hücresine kadar formülleri çoğaltır. Kolay gelsin

tahsinanarat · 18 Ağustos 2008

Dosyayı ekleyememişim, tekrar deniyorum

Dosyayı ekleyememişim, tekrar deniyorum. Kolay gelsin

ftekin · 18 Ağustos 2008

İstediğiniz EK'teki gibidir umarım.

jackal310 · 18 Ağustos 2008

hata oldu

Sayın tahsinanarat;

Sizin ekteki dosyanızda eklediğiniz buton ile yana copy yapıyor..Formülleri alta doğru kopyalamıyor.Ayrıca stok ve sayım - farkını gösterdiğim G hücresi ve sayım + farkını gösterdiğim H hücresinde aradaki farkı vermiyor...

Sayın ftekin;

Sizin dosyanızda ise sayım 4 stok 4 ise stoğu silip h hücresine + olarak yazıyor..
Sanırım sizin kodlarda küçük bir ayar yapılırsa düzelecektir..Onun dışında sorun yok gibi..

Tekrar Net olarak anlatmaya çalışayım...

El terminali ile ürünlerin barkodlarını okutuyoruz.. Sayım olarak çıktısını aldığımız ürün no,açıklama ve sayım adedini (.) sayfasına yapıştırıyorum.
Sonra Mağazamın stoğunu cekıp bunuda CesmiBulb adlı sayfaya akıllı kod,oto,acıklama ve stok olarak yapıştırıyorum.. Buraya kadar formüller ile ve makro ile işimiz yok...
Her ıkı dosyada yerıne yerlestıkten sonra CesmiBulb sayfasındakı sayım kolonunda =EĞER(EYOKSA(DÜŞEYARA(B2;'.'!A:C;3;YANLI&#350

);0;DÜŞEYARA(B2;'.'!A:C;3;YANLI&#350

) formülü vardı ve yaklaşık bu formül 4000 satır devam ediyordu..buda tabiki dosyamın şişmesine neden oluyordu... BUnu sitedeki arkadaşımın bir çalışmasını kendıme uyarlayarak çözdüm..Çözüm şekli ise;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
Set s1 = Sheets(".")
If Intersect(Target, [b2:b65536]) Is Nothing Then Exit Sub
sat = s1.[a1:a65536].Find(Target).Row
Cells(Target.Row, "e") = s1.Cells(sat, "c")
Exit Sub
10 MsgBox "Yazılan veri bulunamadı."
Target.Select
End Sub

Koduyla yapıldı ve bu kod sayesınde 10 mb yer kazandım...

Şimdi diğer hucrelerde bulunan formullerınde aynı sekılde makro ıle uygulanmasını ıstıyorum... Yanı tutar kısmında bulunan(J);
=EĞER(F2<=0;G2*I2;EĞER(F2>=0;H2*I2)) ve -olanlar kısmında bulunan(H) =EĞER(F2>0;F2;0) formüllerininde makro yazılımına ıhtıyacım var...

Saat 02.51 ve ben delı gıbı forumda dolaşıyorum hala bana uygun bir örnek bulurum diye ama bulamadım..

Tek umudum sizlersiniz herzamanki gibi sanırım...

Ayrıca burdaki tüm arkadaşlarımdan iyi kötü birşeyler öğrendim/öğreniyorum.. Ben paşabahçe mağazaları a.ş'de yöneticilik yapıyorum.. Herhangi bir şeye ihtiyacı olan kardeşime bende %20 iskonto uygularım..

Bilgi paylaştıkça artar...

Erdem Erkul

tahsinanarat · 18 Ağustos 2008

SN. Jackal310; Ben soruyu formüllerin satır sayısı dolusu kadar aşağıya kopyalanması şeklinde algılamıştım, "." sayfasındaki değerlerle bağlantı olduğunu bilmiyordum, ne istediğinizi şimdi daha iyi anladım, ama vakit geç oldu, yarın akşam tekrar bakarım.

jackal310 · 18 Ağustos 2008

tesekuur

Ilgınıze tesekkur ederım.. Onemlı olan yardımcı olmaya calısmanız... Tekrar tekrar tesekkur ederım...

Erdem Erkul

jackal310 · 18 Ağustos 2008

Selam tekrar sabaha kadar baktım ancak ben bır sonuc elde edemedım... Uzman arkadaslar yada fıkrı olanlar paylaşırsa sevınırım...

Çok şey istiyorum ama işyerinde malesef internet çıkışını yasaklamış olduklarından bana cevabınızı mail yoluyla gönderirmisiniz...Mağaza Sayımım bu akşam çünkü acil dosyaya son halini vermem gerekiyor...

Mail adresim eerkul@sisecam.com.tr

Tekrar teşekkür ederim..

=eĞer(f2<=0;g2*i2;eĞer(f2>=0;h2*i2))

Moderatör

=eĞer(f2<=0;g2i2;eĞer(f2>=0;h2i2))