Checkbox Satır Iliskisi

[pelin5353]

Ekteki dosyada userforma girilen verilerin sadece check box ile isaretlenen satirlara girmesi gerekiyor. Durumum biraz onemli .. Bana bu konuda yardimci olabilirseniz cok sevinirim.

 

[Levent Menteşoğlu]

Checkboxları C4,C6,C8,.......C26 olarak isimlendirin v e aşağıdaki kodu accept butonuna yazın.

Private Sub CommandButton2_Click()
Sheets("PLAN").Select
For a = 4 To 26 Step 2
If Controls("c" & a).Value = True Then
Sheets("PLAN").Cells(a, "f") = TextBox1
Sheets("PLAN").Cells(a, "n") = TextBox3
Sheets("PLAN").Cells(a, "t") = ComboBox4
Sheets("PLAN").Cells(a, "y") = TextBox6
Sheets("PLAN").Cells(a, "ah") = ComboBox3
Sheets("PLAN").Cells(a, "at") = TextBox5
End If
Next
End Sub

 

[pelin5353]

Sayin Leventm,
Oncelikle ilgilendiginiz icin tesekkurler..Belirtilen macroyu sayfaya kopyaladim ama """Runtime error'-2147024809(80070057) Could not find the specified object. """ seklinde bi hata verdi. Nerede hata yaptigimi anlayamadim.
Tekrar yardim rica edebilirmiyim?

 

[danersin]

Userform'a gidip BR A > C4 olacak şekilde OUTSIDE>C26 olacak şekilde
isimlendirmeyi doğru yaparsanız kod düzgün çalışıyor.
Checkbox'ı seçin ve Properties ekranında Name özelliğinde Checkbox1 vb gördüğünüz yerlere C4 ile C26 arasında 2 şer ikişer artacak şekilde isimler verin.

 

[pelin5353]

Ok yanlis yerden isim degisikligi yapmisim. Calisiyor ve cok isime yarayacak..Cok tesekkurler.

Peki ekteki sekildeki gibi olsa, ayni satir icin 2. tabloya bilgi girisi yaparken, 1 tablodaki saat araligiyla cakisma olursa uyari mesaji verip o kaydin yapılmasina izin vermeme gibi bir sansimiz olabilirmi??

 

[pelin5353]

Yardimci olabilirseniz gercekten cok sevinecegim. Gercekten cok onemli...

 

[pelin5353]

Ayrica bu sayfadaki her iki tablodaki verileri otomatik olarak baska bir sayfaya gondemek mumkun mu? bu veri gonderimi 5-6 sayfadan gerceklesecek..