Değişkeni çok aralık tanımlamak...

[aliakgul]

İyi akşamlar arkadaşlar,
Resimdeki tabloda;
Belirttiğim günde tüm kişileri "X" ile işaretlemesini istiyorum.

a= belirttiğim gün (sütun)
4= ilk satır(sabit)
b= kişi sayısı(son satır)
İlgilenenlere teşekkür ederim...

 

[Ayhan Ercan]

Merhaba Sn aliakgul

Sorunuz net değil. Açıklamalı bir Örnek dosya yollayabilirmisiniz?

 

[aliakgul]

a= belirttiğim gün (sütun)
4= ilk satır(sabit)
b= kişi sayısı(son satır)

Merhaba,
Diyelimki bir comboboxdan 3. günü seçiyorum ve butona tıklıyorum. Bu durumda a değişkenini
a = gun + 2
a= 3+2 =5. sütun
ilk satır sabit olduğu için
4.satırın 5. sütunundan(E3) itibaren E sütunundaki tüm hücrelere, en son kişiye kadar (bu da b değişkeni) X değeri atayacak.
son kişi=b+3

Çalışma kitabının boyutu büyükçe olduğu için eklemedim.Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KRİTERE_GÖRE_X_EKLE()
    SÜTUN = InputBox("Lütfen sütun bilgisi giriniz !", "SÜTUN SEÇİMİ", "C")
    If SÜTUN = "" Or SÜTUN = False Or IsNumeric(SÜTUN) Then Exit Sub
    İLK_SATIR = 4
    SON_SATIR = [B65536].End(3).Row
    If SON_SATIR >= İLK_SATIR Then
    Range(Cells(İLK_SATIR, SÜTUN), Cells(SON_SATIR, SÜTUN)) = "X"
    End If
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[aliakgul]

Teşekkür ederim Korhan Usta,
Verdiğiniz kodlarda küçük bir uyarlama ile sorunu aştım. Elinize sağlık...
Sevgili Ayhan Ercan ilginden dolayı sana da ayrıca teşekkür ederim...

 

[Necdet]

Merhaba,

Bende uğraşmıştım, boşa gitmesin

Public Sub Isaretle()
Gun = InputBox("Günü Giriniz", "Gün Girişi", 1)
If Gun < 1 Or Gun > 31 Then Exit Sub
Kolon = Gun + 2
Sat = [B65536].End(3).Row
Range(Cells(4, Kolon), Cells(Sat, Kolon)) = "X"
End Sub