• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listboxta alınan verilerde toplama

Katılım
10 Nisan 2008
Mesajlar
394
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
selamlar

comboboxla isim seçip o isme ait rakamlarıyla birlikte listboxa alıyorum

ve toplama işlemini aşağıdaki kodla yapıyorum

fakat listboxta ahmet isimli isim ve bu isme ait 3 tane toplanması gereken rakam var kodlar işlemi sayfadan gördüğü için bütün rakamların toplamamını
alıyorum

yani toplama işlemini isime göre değilde sayfadaki verinin toplamını yapıyor

acaba listboxta alınmış verileri toplama imkanı varmı

kullandığım kod bu
TextBox9.Text = Format(WorksheetFunction.Sum(Sheets("MERMERCİ").Range("J4:J" & _
Sheets("MERMERCİ").Cells(65536, "B").End(xlUp).Row)), "#,##0.00")

saygılar
 

Ekli dosyalar

döngünün içinde toplayın veya sumif kullanın.:cool:
 
sayın evren gizlen teşekkürler
dün nette sorun vardı galiba yollayamadım
sayın evren bey bir sorum daha olacak

sayfaya sürekli değişik isimler giriyorum ve o isme 20 kadar işlem yapılıyor
,ahmet 1. işlem
,ahmet 2. işlem gibi

yani verileri sayfaya aktarırken 1 arttırmak gibi fakat daha önce kayıt varsa textbox12
o rakama göre devam ediyor.bana bir yol göstere bilirmisiniz
 
sayın evren gizlen teşekkürler
dün nette sorun vardı galiba yollayamadım
sayın evren bey bir sorum daha olacak

sayfaya sürekli değişik isimler giriyorum ve o isme 20 kadar işlem yapılıyor
,ahmet 1. işlem
,ahmet 2. işlem gibi

yani verileri sayfaya aktarırken 1 arttırmak gibi fakat daha önce kayıt varsa textbox12
o rakama göre devam ediyor.bana bir yol göstere bilirmisiniz
Bundan bir şey anlamadım . :cool:
 
şöyleki farzedelim ahmet ismine işlem yapılacak form açılıpta ahmet ismini yazdığımda

sayfada ahmet ismi yoksa işlem no 1 den başlayacak ahmet ismi varsa uyarı verecek ismi değiştir gibi
yuakarıdaki önermeden b sütununda Girilen müşteri ismlerinden sadece bir tane olmalı.Mükerrer kayıt yapılamamalı.
 
aynen anlatılan gibi sayın evren bey

benim anlatmak istediğim sadece işlem numarası

comboya EVREN GİZLEN ismine mermer satışı yapmak istediğimizde EN,BOY,ADET,ÖZELLİK,textboxlarına veri girip yeni butonuna basınca işlem 1 diye
evren gizlenin 1. işlemini yerine getirmesi

yeni butonu sayfaya aktarırken verileri imputbox aynısı varsa isim dğişikliği için

uyarı verecek olay bu

yukarıda anlattığımı yapmaya çalıştım fakat işlem numaraları seri gidiyor hocam olmadı

sayfaya aktarırken 1 artış şeklinde seri rakamlar olarak aktarım oluyor

biraz uzun bi anlatım kusura bakmayın
 
En başa aşağıdaki kodları yapıştırınız.:cool:
Kod:
Dim k As Range
Set k = Sheets("MERMERCİ").Range("B2:B65536").Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "[ " & TextBox1.Text & " ]" & vbLf & "Bu isimde Kayıt var." & "Tekrardan deneyiniz."
    TextBox1.SetFocus
    Exit Sub
End If
 
Koyduğunuz yer doğru değil.
Yeni butonuna(CommandButton1) e yazmalıydınız.Textbox1 deki değri kontrol ediyor kodlarB sütununda
Zira yeni oluşturmak istediğinizde size haber verecek.
Dosyanız ekte.
 

Ekli dosyalar

sayın hocam örnekte anlatmıştımya

işlem no yine seri rakamlar veriyor benim istediğimse ahmet aydın isimli müşteriye

her işlem yaptığımda textbox 12 işlem başına 1 den başlayarak numara versin sizin kodlarda ise

durum yine aynı rakamlar seri olarak sonsuz devam ediyor burda anlatmak istediğim

işlem no dur

şöylede olabilir

farzedelim ahmet aydın ismini comboya yazdım

ahmet beye 30 kadar işlem yaptım işlem dediğim EN BOY ADET ÖZELLİK yazıp

yeni butonuna bastım

ben her işlem yapıp yeniye bastığımda İŞLEM NO ahmet beye yapılan işlemmin 1.işlem,2işlem,3işlem gibi ahmet aydının işlemlerinin sayısını vermeli

buna sınırlamada getirebiliriz biryerden baz alaım diye

bu 30 adet işlem olabilir mesela

birde ileride bir tarihte 1 ay sonra mesela tekrardan ayhmet aydın bana mermer
siparişi verdiğinde ben comboya yazdığımda

ahmet beyi görürüm ve mermerin EN,BOY.ADET,ÖZELLİĞİNİ.

yazıpta yeni dediğimde uyarı verecek

ahmet aydın isimli kayıt var

bende ahmet aydın 2 dediğimde sayfaya ahmet aydın2 İŞLEM NO tekrerdan 1.işlem,2,işlem
diye işlemleri sıralıyacak

kusura bakmayın

saygılar
 
sayın hocam örnekte anlatmıştımya

işlem no yine seri rakamlar veriyor benim istediğimse ahmet aydın isimli müşteriye

her işlem yaptığımda textbox 12 işlem başına 1 den başlayarak numara versin sizin kodlarda ise

durum yine aynı rakamlar seri olarak sonsuz devam ediyor burda anlatmak istediğim

işlem no dur

şöylede olabilir

farzedelim ahmet aydın ismini comboya yazdım

ahmet beye 30 kadar işlem yaptım işlem dediğim EN BOY ADET ÖZELLİK yazıp

yeni butonuna bastım

ben her işlem yapıp yeniye bastığımda İŞLEM NO ahmet beye yapılan işlemmin 1.işlem,2işlem,3işlem gibi ahmet aydının işlemlerinin sayısını vermeli

buna sınırlamada getirebiliriz biryerden baz alaım diye

bu 30 adet işlem olabilir mesela

birde ileride bir tarihte 1 ay sonra mesela tekrardan ayhmet aydın bana mermer
siparişi verdiğinde ben comboya yazdığımda

ahmet beyi görürüm ve mermerin EN,BOY.ADET,ÖZELLİĞİNİ.

yazıpta yeni dediğimde uyarı verecek

ahmet aydın isimli kayıt var

bende ahmet aydın 2 dediğimde sayfaya ahmet aydın2 İŞLEM NO tekrerdan 1.işlem,2,işlem
diye işlemleri sıralıyacak

kusura bakmayın

saygılar

Ama ben size B sütununda mükerer kayıt istemiyorsunuz diye teyid ettirdim sizde bana aynen dediğiniz gibi dediniz.
Şimdide başka bir şey söylüyorsunuz.
O zaman B sütununda mükerer kayıt yapılacak demektir.
Ama onada bir sınır getiryorsunuz anladığım kadarı ile.30 mu olacak.
Ama ne olur bu sefer doğru teyid edin bizi boşuna uğraştırmayın.:cool:
Bir daha yapmam haaaaaaaaaaa.........!!!
 
size bırakıyorum siz bildiğiniz gibi yapın bende ona uyayım sayın evren bey
teşekkürler
 
size bırakıyorum siz bildiğiniz gibi yapın bende ona uyayım sayın evren bey
teşekkürler
Bakın şimdi yine olmadı.
Ben size önceki mesajımda söylediklerimin doğru olup olmadığını doğruysa ona göre işlem yapabilmem için teyid ettirmek istiyorum.Ama siz bana siz bildiğiniz gibi yapın diyerek benim bu sizden bilgi alma isteğimi reddediyorsunuz.Ben şimdi önceki mesajımda söylediklerimin doğrumu yanlışmı olduğunu nasıl bilecem.Siz bildiğiniz gibi yapın diyorsunuz ama ben sizden yarım yamalka aldığım bilgilerle sizin istediğiniz gibiş yapmayıncada olmadı bu diyorsunuz.
Sizinle anlaşamıyoruz.
Bundan sonrası için başka bir arkadaştan yardım alınız.:cool:
 
Bakın şimdi yine olmadı.
Ben size önceki mesajımda söylediklerimin doğru olup olmadığını doğruysa ona göre işlem yapabilmem için teyid ettirmek istiyorum.Ama siz bana siz bildiğiniz gibi yapın diyerek benim bu sizden bilgi alma isteğimi reddediyorsunuz.Ben şimdi önceki mesajımda söylediklerimin doğrumu yanlışmı olduğunu nasıl bilecem.Siz bildiğiniz gibi yapın diyorsunuz ama ben sizden yarım yamalka aldığım bilgilerle sizin istediğiniz gibiş yapmayıncada olmadı bu diyorsunuz.
Sizinle anlaşamıyoruz.
Bundan sonrası için başka bir arkadaştan yardım alınız.:cool:

sayın hocam

burası yazışmayla anlaşabildiğimiz bir paylaşım sitesi

ben sorunlarımı anlattım

sizde yardımcı oldunuz teşekkürler

mükerrer kayıttan bahsettiniz ben mükerrerin kelime anlamını bilmiyorsam

sorun bende özür dilerim

ama kırıcı bir laf demedim

sadece anladığınız gibi yapın bakayım anlamında

bildiğiniz gibi kelimesi kullanılmıştır

olay budur başka lafım yok

ilginize ve tecrübenize teşekkürler
 
Geri
Üst