CheckBox ekleme ve caption adını sayfadan alma

[yelgecak]

S.a arkadaşlar

Aşağıdaki kodlarla CheckBox ekleybiliyorum ama caption adını sayfadan almak istiyorum. yardımlarınızı bekliyorum teşekkürler.

Private Sub CommandButton1_Click()
Set ekle = Me.Frame1.Add("Forms.CheckBox.1")
With ekle
.Top = 10 + Val(Me.Tag)
.Left = 5
.Width = 120
.Height = 18
.Font.Size = CheckBox0.Font.Size
.BackColor = CheckBox0.BackColor
.BackStyle = CheckBox0.BackStyle
.SpecialEffect = CheckBox0.SpecialEffect
.ForeColor = CheckBox0.ForeColor
.Caption = ekle.Name

End With



Me.Tag = Me.Tag + 18

Frame1.Controls(CheckBox1).Caption = Sayfa2.Range("a1") = Value
Frame1.Controls(CheckBox2).Caption = Sayfa2.Range("a2") = Value
Frame1.Controls(CheckBox3).Caption = Sayfa2.Range("a3") = Value

End Sub

 

[yelgecak]

Konu günceldir arkadaşlar. Yardımlarınızı bekliyorum

 

[halit3]

S.a arkadaşlar

Aşağıdaki kodlarla CheckBox ekleybiliyorum ama caption adını sayfadan almak istiyorum. yardımlarınızı bekliyorum teşekkürler.

Private Sub CommandButton1_Click()
Set ekle = Me.Frame1.Add("Forms.CheckBox.1")
With ekle
.Top = 10 + Val(Me.Tag)
.Left = 5
.Width = 120
.Height = 18
.Font.Size = CheckBox0.Font.Size
.BackColor = CheckBox0.BackColor
.BackStyle = CheckBox0.BackStyle
.SpecialEffect = CheckBox0.SpecialEffect
.ForeColor = CheckBox0.ForeColor
.Caption = ekle.Name

End With



Me.Tag = Me.Tag + 18

Frame1.Controls(CheckBox1).Caption = Sayfa2.Range("a1") = Value
Frame1.Controls(CheckBox2).Caption = Sayfa2.Range("a2") = Value
Frame1.Controls(CheckBox3).Caption = Sayfa2.Range("a3") = Value

End Sub

Kodu bu şekilde denermisiniz.

Dim say As Long
Private Sub CommandButton1_Click()
Set ekle = Me.Frame1.Add("Forms.CheckBox.1")
With ekle
say = say + 1
.Top = 10 + Val(Me.Tag)
.Left = 5
.Width = 120
.Height = 18
.Font.Size = CheckBox0.Font.Size
.BackColor = CheckBox0.BackColor
.BackStyle = CheckBox0.BackStyle
.SpecialEffect = CheckBox0.SpecialEffect
.ForeColor = CheckBox0.ForeColor
.Caption = Cells(say, "a").Value
End With
Me.Tag = Me.Tag + 18
End Sub

kodun kırmızı =(eşittir) işareti yerine . (nokta) işareti ile düzeltin.

 

[yelgecak]

Hocam tok teşekkür ederim kralsınız sorunsuz çalışıyor ve name adını 1 den başlayarak alıyor, tıkladığında işlem yapmak istiyorum olmuyor bu konudada yardım ederseniz sevinirim.

Private Sub CheckBox1_Click()
Sayfa1.Range("D5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],[01.09.2012.xls]Kurtarılan_Sayfa1!R1C1:R65536C2,2,0)"
End Sub

 

[yelgecak]

Konu günceldir arkadaşlar.

 

[halit3]

Hocam tok teşekkür ederim kralsınız sorunsuz çalışıyor ve name adını 1 den başlayarak alıyor, tıkladığında işlem yapmak istiyorum olmuyor bu konudada yardım ederseniz sevinirim.

Private Sub CheckBox1_Click()
Sayfa1.Range("D5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],[01.09.2012.xls]Kurtarılan_Sayfa1!R1C1:R65536C2,2,0)"
End Sub

Bu durum olmaz niye derseniz commadbuttona her tıkladığınızda formun en altına söylediğiniz kodu yazması gerekiyor açık olan bir userformda bu uygulama (çağrılan nesne işlemciden ayrılmıştır) hatası alırsınız.

Bidiğim bu kadar !
Bence bununla gereksiz yere boş zamanınızı harcamayın kodları ve nesneleri userforma kendiniz ekleyin.

 

[yelgecak]

Bu durum olmaz niye derseniz commadbuttona her tıkladığınızda formun en altına söylediğiniz kodu yazması gerekiyor açık olan bir userformda bu uygulama (çağrılan nesne işlemciden ayrılmıştır) hatası alırsınız.

Bidiğim bu kadar !
Bence bununla gereksiz yere boş zamanınızı harcamayın kodları ve nesneleri userforma kendiniz ekleyin.

Hocam bunu şunu için yaptım CheckBox adedi belli olmadığı için kendi oluştursun istedim. form açıldığında kendi oluştursa kaç tane ise yinede bi sonuca ulaşamazmıyız.

Hocam butonu kaldırıp formun Initialize olayına yerleştirdim bu şekilde bir sonuca ulaşabilirmiyiz.

 

[halit3]

Hocam bunu şunu için yaptım CheckBox adedi belli olmadığı için kendi oluştursun istedim. form açıldığında kendi oluştursa kaç tane ise yinede bi sonuca ulaşamazmıyız.

Hocam butonu kaldırıp formun Initialize olayına yerleştirdim bu şekilde bir sonuca ulaşabilirmiyiz.

Bu söylediğini ben yapamadım bu yöntem bana kalırsa çalışmaz.

Ben farklı bir uygulama yaptım kontrol edermisiniz.

 

[halit3]

Buda farklı bir uygulama userform2 deki komut duğmesine tıkla gözlemle

 

[yelgecak]

Bu söylediğini ben yapamadım bu yöntem bana kalırsa çalışmaz.

Ben farklı bir uygulama yaptım kontrol edermisiniz.

Hocam çok güzel olmuş ellerinize sağlık.

ListView nesnesini nereden eklediniz hocam.

 

[halit3]

Hocam çok güzel olmuş ellerinize sağlık.

ListView nesnesini nereden eklediniz hocam.

(toolbox) nesnesine sağ tıkla (additional controls) yazısına tıkla
açılan pencereden (microsoft listview control version 6.0) bul ve tikini işaretle

 

[yelgecak]

Buda farklı bir uygulama userform2 deki komut duğmesine tıkla gözlemle

Hocam Süpersiniz.

Önceki gönderdiğiniz dosyada çalışıyorum baya geliştirdim yeni SubItems ler ekledim çok güzel oldu teşekkürler ellerinize sağlık.

 

[yelgecak]

(toolbox) nesnesine sağ tıkla (additional controls) yazısına tıkla
açılan pencereden (microsoft listview control version 6.0) bul ve tikini işaretle

Hocam ben win7 64bit ve office 2010 kullandığım için aktif etsemde çıkmıyor, Çözümünüde bulamadım.

 

[halit3]

Hocam ben win7 64bit ve office 2010 kullandığım için aktif etsemde çıkmıyor, Çözümünüde bulamadım.

Konu baya değişti şimdi kullanıcı profilinizde ofisin hangi sürümünü kullandığınız yazmıyor.

listview diye arama yapın bu nesne ile bir sürü arşivde örnekler mevcut.
Diğer taraftan konu bütünlüğü bozulmaması için listview nesnesi ile sorularınızı başka bir başlık altında yeni konu açarak sorun.

 

[yelgecak]

Çok teşekkürler hocam tekrardan ellerinize sağlık.