buttona ile hücre değiştirme

[saltuks]

dostlar selamlar command button ile başka bir sayfadan veri çekiyorum aynı workbookta buttona her tıkladığımda bir alt satırdan değer getirsin istiyorum bunun için sunu hazırladım

Private Sub CommandButton1_Click()

If Range("C7") > 0 Then
x = ThisWorkbook.Worksheets("FUEL").Range("K12") + 1
Else
x = ThisWorkbook.Worksheets("FUEL").Range("K12")
End If
Range("C7") = x

fakat burda ikinci tıklayışımda "K13" ün değerini getirmek yerinde "K12" nin sayılsal değerine 1 ekliyor ve orda takılı kalıyor bunu nasıl düzeltebilirim

 

[ÖmerBey]

Merhaba,
Öncelikle siteye hoşgeldiniz.
Sorularınızı örnek dosya ile desteklerseniz daha hızlı ve daha doğru cevaplar alabilirsiniz.
İsteğinizle ilgili dosyanıza uygun farklı çözümler sunulabilir. Örnek olarak aşağıdaki kodu deneyiniz.

Dim x As Range
Private Sub CommandButton1_Click()
If Range("C7") > 0 And Not x Is Nothing Then
Set x = x.Offset(1)
Else
Set x = ThisWorkbook.Worksheets("FUEL").Range("K12")
End If
Range("C7") = x.Value
End Sub

 

[saltuks]

hocam hoşbulduk çok sağolun yardımınız için fakat işe yaramadı malesef örnek olarak küçük birşey hazırladım yapmak istediğimi


https://dosya.co/a3ijr5lz2fbm/örnekexcel.xlsm.html

 

[ÖmerBey]

Yukarıdaki kodun örnek dosyanız için düzenlenmiş hali:

Dim x As Range
Private Sub CommandButton1_Click()
If Range("E1") > 0 And Not x Is Nothing Then
Set x = x.Offset(1)
Else
Set x = ThisWorkbook.Worksheets("sheet2").Range("A1")
End If
Range("E1") = x.Value
End Sub

Önceki kodu sildikten sonra sheet1 sayfasının kod bölümüne uygulayıp deneyiniz.
Dosyanız burada.

 

[saltuks]

hocam harikasınız teşekkür ederim

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...