Başka Butonla Hücreye Yazdırma

[BarisDagidir]

Merhaba Arkadaşlar, Bul butonu ile bulunan hücrenin 5 ileri hücresine başka bir buton ile herhangi bir değer atamasını bir türlü başaramadım, sabit bir satır ataması yapmak zorunda kalıyorum devamlı..... (örnk: Bulunan hücre B8 ise Yaz Butonuna tıkladığımda G8 e "0" yazması.)


Bul Butonu kodu aşağıdaki gibidir.

Private Sub Kytbul_Click()
    Dim ws As Worksheet
    Dim bak As Range
    Set ws = Worksheets("isbsl")
    ws.Select
    For Each bak In ws.Range("b2:b6500")
        If StrConv(bak.Value, vbUpperCase) = StrConv(namekd.Value, vbUpperCase) Then
            If ws.Cells(bak.Row, "g") = "" Then
                bak.Select
                Me.prjkd.Value = ActiveCell.Offset(0, -1).Value
                Me.namekd.Value = ActiveCell.Offset(0, 0).Value
                Me.iskd.Value = ActiveCell.Offset(0, 1).Value
                Exit Sub
            End If
        End If
    Next bak
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

 

[zafer]

Merhaba


Modulün başına

Public bak As Range

yazınız sonra aşağıdaki kodları atayacağınız butona

bak.select
ActiveCell.Offset(0, 5)=0

yazınız

Tanımladığınız değişkenin ne kadar geçerli olmasını istiyorsanız Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/f60/de-kenler-variables-t4299.html

 

[BarisDagidir]

Teşekkür ederim Syn. zafer.