koşula göre kodlama

[Kemal Demir]

Değerli Arkadaslar hepimizin 19 Mayıs Gençlik Ve Spor Bayramımız kutlu olsun..

Sn.Raider Dun yazdıklarımı yanlıs anladı veya ben anlatamadım Forumdaki Herkez Adına Ã?zür Diliyorum..(tavrımdan dolayı)

İzniniz Varsa Dosyamı Göndermek ıstıyorum..

Dosyamda Kosula bağlı olarak kodlama yapmam gerekiyor

Dosya içerisinde bir forum ekledeım girilen ıd ye göre bilgilere aktarıyor
bende bunlartla la ılgılı kosullu sekılde kodlama yapmak istiyorum..
Ama yapamadım.. :kafa: :kafa: yardımcı olursanız sevınırım değerli arkadaslar

Sağlıcakla KaLın

 

[Levent Menteşoğlu]

SAHIS(COMMADBUTONUNUN) ;(ÞAHIS),ADRES,SEMT,İL,TELEFON1,TELEFON2'NIN OLDUÐU DURUMLARDA [OASIT1T2]
SAHIS(COMMADBUTONUNUN) ;(ÞAHIS),ADRES,SEMT,İL,TELEFON1'IN OLDUÐU DURUMLARDA [OASIT1]
SAHIS(COMMADBUTONUNUN) ;(ÞAHIS),ADRES,SEMT,İL'IN OLDUÐU DURUMLARDA [OASI]
SAHIS(COMMADBUTONUNUN) ;(ÞAHIS),ADRES,SEMT'IN OLDUÐU DURUMLARDA [OAS]
SAHIS (COMMADBUTONUNUN) ;(ÞAHIS),ADRES'IN OLDUÐU DURUMLARDA [OA] OLARAK SEÇİLİ KOLONA ("K") KOLONUNA ATAMAK İSTİYORUM.......

Sn rakkas dosyanıza baktım fakat ilk sorunuzu anlayamadım. "K" kolonuna ne yazdırmak istiyorsunuz.

 

[Kemal Demir]

Söle soleyeyım adres kolonu,semt kolonu,il,tel1,tel2 kolonu dolu ise oasıt1t2 yazsın

adres,sem,il,tel1 dolu ise oasıt1 yazsın
eksik olan kolonun belirteci yazılmasın

şimdiden ilgin için saol

 

[Kemal Demir]

Sn Leventm

Zannedersem 1.Aşamaya yaptım sen paylaşmak istiyorum yanlız bırıncı asamada hepsi dolu ıse OASIT1T2 OLRAK YAZDIRMAK ISTIYORUM AMA OLMUYOR

***BURASININ YAZILIM SEKLİ NI BULAMADIM***
'if Textbox5.VALUE VE Textbox6.VALUE VE Textbox7.VALUE VE Textbox8.VALUE VE Textbox9.VALUE DOLU İSE'
"O-A-S-I-T1-T2"

"KODUN DEVAMI"

satir = ActiveCell.Row
Sheets("DATA").Cells(satir, 11) = "O-A-S-I-T1-T2 "
TextBox1.Value = TextBox1.Value + 1
Exit Sub
End If


AMA DIYER SORUNLAR HALA SORUN.. :kafa: :kafa: :kafa: :dua: :dua: :dua: :dua:

 

[Kemal Demir]

hocam buda tamam biraz kurcaladım oldu

ama diğerlerinde hala problem var

 

[Kemal Demir]

aşağıdaki kodu hangi form kalıbı ıcıne sokmam gerekıyor arkadaslar form aktıf ıken
".........." yer ne uzan tılı olmalı
Private Sub ..........................................
If TextBox10.Value = "" Then
Sheets("DATA").Cells(satir, 11) = "D"
TextBox1.Value = TextBox1.Value + 1
Exit Sub
End If

 

[danersin]

hocam buda tamam biraz kurcaladım oldu

Sn. Rakkas bence en iyi öğrenme/geliştirme yolunu bulmuşken size en gel olmayalım. Dosyanıza bakmadım ama Son sorduğunuz soru şu şekilde sanırım. Aşağıdaki kodları hangi Event (OLAY) a bağlamalıyım. Bu nasıl bir düğmeye basmak olabiliyorsa, userform üstündeki bir başka kontrolün tıklanması, çift tıklanması, fare ile üstüne gidilmesi yada uzaklaşılması, form üstündeki bir başka kontrolden exit edilmesi vs. olaylardan biri ile tetiklenebilir. Birkaç denemede bulursunuz gibi geliyor. Olmazsa (yada belki farklı bir durumdur) haber verirsiniz.

 

[Kemal Demir]

TIKANDIM :kafa: :kafa: :kafa: :kafa: :kafa: :kafa:

YARDIMCI OLURMUSUNUZ

Sn DanErsin Denemedim ama zannedersem (bırazdaha eksiklerim var baya baya eksiyim var)

AMa Birgun olacak

Yardımlarınız bekliyorum..
SaygıLar