OptionButton

[enginbagci]

arkadaslar herkeze merhaba
benim excelim iyi değil kendimce siteden alıntılar yaparak birşeyler yapıyorum. yaptığım calışmada takıldığım yerler var yardımcı olursanız sevinirim
calışma sayfasında sarı renkle olan kısımları yapamadım

"OptionButton tuşlarını durumda olan kritere göre arama"
"listbox 2 ve 3 den çift tıkladıktan sonra textboxlara gelen bilgileri silme veya değiştirtirme komutları"
" birde şaşe numarasına göre listbox3e o saseye ait kac defa iş yapılmışma ayrı ayrı listbox3 e listelenmesi"

çalışma yapmış olduğum hatalı kodlar varsa bakabilirseniz sevinirim

tüm excelcilere sevgiler

 

[enginbagci]

yokmu cevap verecek.

üstadlar neredesiniz
:kafa:
:yardim: :yardim: :yardim: :yardim:

 

[gdemir]

ben birazdaha farklı bır calısma yaptım
umarım ısınıze yarar

 

[enginbagci]

yaptığınız calışma güzel ama benim amacım
yeni sipariş acılırken daha önceden siparişi varmı yani sipariş veripte taktırmamısmı ??
ve excelde gözükmeden sadece formla yapmak tarihi saati değiştirememesi
ilginize teşekkürler..

 

[enginbagci]

:yardim: :yardim:

 

[enginbagci]

:yardim:

 

[mraltin]

Sn.Engin ekteki ornegi inceleyin
eger istediginiz bu sekilde ise
Criteria1:="MÜÞTERİ BEKLİYOR" kodlarini sizin istediginiz sekilde degistirip kullanırsınız.
atac eklemede bi sorun var sanırım kolari optionbuttonun cilik olayina yaziniz
KOD
Columns("A:K").Select
Selection.AutoFilter
Range("A1").Select
Selection.AutoFilter Field:=5, Criteria1:="MÜÞTERİ BEKLİYOR"
Cells.Select
Selection.Copy
Sheets("Sayfa2").Select
Cells.Select
ActiveSheet.Paste
Sheets("1").Select
Columns("A:G").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "NO"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Comic Sans MS"
.FontStyle = "Kalın İtalik"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
Range("A1").Select
ListBox2.RowSource = "Sayfa2!a2:k500"

not:calisma kitabiniza Sayfa 2 adlı bir sayfa ekleyin.

 

[enginbagci]

ilgine teşekkür ederim ama benim istediğim süzme değil daha dogrusu süzme islemi yapıp listbox2 aktarması ve oradanda değişiklik yapabilmek. exceli kullanmayacağım yani sadece form üzerinde islem yapılabilmesini istiyorum

tekrar teşekkürler

 

[Levent Menteşoğlu]

Dosyanıza gerekli kodları ilave ettim inceleyin.

 

[enginbagci]

optionbutton

levent bey dosyada option tuşlarıyla listbox 2 ye aktarılmasıydı listbox 3 sadece araca sipariş acılırken sase numarasının aynı olan siparişleri gelmesiydi. ben tusları listbox2ye aktardım yalnız listbox3 e sase textboxu yazıldıktan sonra aynı siparişlerin listbox 3 cıkmasını nasıl yapabiliriz birde

durumu değiştiğimiz kriterin hiç siparişi yoksa en üst menü geliyor bunu engelleyebilirmiyiz

teşekkürler

 

[mraltin]

Verdigim ornekte suzme islemi yapip listbox2 de gosteriyor zaten

 

[enginbagci]

levent bey ordamısınız

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

Þasi no textboxtındaki değere göre listbox3 doldurulmaktadır.