checkbox'ı hücredeki değere göre işaretlettirme...

[Amaxx]

arkadaşlar aşağıda yazdığım koddaki işaretli checbox'ı Sheet("veri") de (b71)hücreye yazırıyorum. Şimdi de bir komutla o hücredeki değeri olan checkbox'ı işaretlettirmek istiyorum. Yani önce işaretli olanı tek hücreye yazdırıyorum. daha sonra o hücrede yazılı olan checkbox' ı işaretlettirmek istiyorum. Bunun için nasıl bir kod yazmalıyım. Burada amacım önceden girdiğim verileri geri çağırmaktır.

Dim degP1 As String
Sheets("veri").Range("b71") = ""
If OP1_Vasis.Value = True Then degP1 = OP1_Vasis.Caption
If OP1_Yatay.Value = True Then degP1 = degP1 & "" & OP1_Yatay.Caption
If OP1_Cift.Value = True Then degP1 = degP1 & "" & OP1_Cift.Caption
Sheets("veri").Range("b71") = degP1

 

[baranseren]

arkadaşlar aşağıda yazdığım koddaki işaretli checbox'ı Sheet("veri") de (b71)hücreye yazırıyorum. Şimdi de bir komutla o hücredeki değeri olan checkbox'ı işaretlettirmek istiyorum. Yani önce işaretli olanı tek hücreye yazdırıyorum. daha sonra o hücrede yazılı olan checkbox' ı işaretlettirmek istiyorum. Bunun için nasıl bir kod yazmalıyım. Burada amacım önceden girdiğim verileri geri çağırmaktır.

bir excel sayfası ile yapmak istediğinizi açık şekilde tekrar hazırlarsanız yardım etmeye çalışayım size

 

[Amaxx]

dosyam oldukça yüklü olduğu için ilgili kısımların görüntüsüyle anlatmaya çalışayım; checkbox2.bmp dosyasında görüldüğü seçenekli sorularım var, bunları sheete -checkbox1.bmp dosyasında görüldüğü gibi- kaydettikten sonra bilgileri listbox ile tekrar ekrana çağırmam gerekiyor. Bunu yaparken nasıl bir kod yazılmalı. umarım anlatabilimişimdir.. dosyamı küçültüp göndermeyi denedim ama silmelerden dolayı kodlarda hatalar oluştu...

 

[Amaxx]

dosya ekleme sorun oluştu...

 

[Amaxx]

soruma ait dosyam ektedir arkadaşlar... burada teklif sayfasındaki verileri formumdaki listbox' ı çift tıklayınca checjboxlara işaretlettirmek istiyorum. yardımcı olursanız çok sevinirim

 

[Amaxx]

bu konuda yardımcı olacak arkadaş yok mu

 

[Amaxx]

siteyi dolaştıkça er geç bi yol gösteren çıkar diye düşünüyorum

 

[orcunerkek54]

arkadaşım kendi yaptığım yöntem şu şekilde
formuna bir text kutusu ekle kaydet butonuyla kaydettir. checkboxun seçiliyken texte verdiği deger sineklik dahil olsun seçili değilken boş olsun. listboxsınada bu sudundaki veri aldır ve tıklamayla textleri verileri yükle sonra şu kodu checkboxına koy

Private Sub CheckBox3_Click()

If CheckBox3 Then ' eğer seçiliyse
TextBox18 = "SİNEKLİK DAHİL" 'buraya istediğini yazabilirsin
' TextBox18.BackColor = &HFF& 'TEXT DOLGUSU KIRMIZI
TextBox18.Enabled = False

Else
TextBox18 = "" 'eğer boşa sen buraya istediğinide yazabilirsin
' TextBox18.BackColor = &HFFFFFF 'TEXT DOLGUSU BEYAZ
TextBox18.Enabled = False

End If
End Sub
kolay gelsin bu kodu uyarlarsın artık kendine kolay gelsin