Fonksiyon ile Hücreye Veri Girme

[Recep İpek]

KTF'da fonksiyona verdiğimiz değere göre aktif hücrenin sağına soluna 1 değerini koyabilirmiyiz?

Mantık aşağıdaki gibi olması gerekiyor ama işin içinden çıkamadım.

Function Veri(deg As Long)
If deg=1 Then
ActiveCell.Value=1
Activecell.Offset(0,1).Value=1
ElseIf deg=2 Then
ActiveCell.Value=1
Activecell.Offset(1,0).Value=1
End If
End Function

Not: KTF yerine makroda olabilir.

 

[Recep İpek]

Arkadaşlar,

Aşağıdaki şekilde problemi çözdüm.

Sub Button1_Click()
a = InputBox("Değer Giriniz")
Call Veri(Val(a))
End Sub

Sub Veri(deg As Long)
If deg = 1 Then
ActiveCell.Value = 1
ActiveCell.Offset(0, 1).Value = 1
ElseIf deg = 2 Then
ActiveCell.Value = 1
ActiveCell.Offset(0, -1).Value = 1
Else
Exit Sub
End If
End Sub