Makrolarda hücre değerinin kullanılması

MACROLARDA HÜCRE DEĞERİNİN KULLANILMASI

Oluşturacağınız projelerimizde, makrolar sayesinde excel hücre değerelerini kullanmak veya elde ettiğimiz verileri Excel hücrelerine yazdırmak isteyebiliriz. Bahsettiğimiz bu özelliği nasıl kullanacağımızı örneklerle açıklayalım.

A1 hücresine www.kod.gen.tr yazalım ve Tıkla isimli buton ekleyip aşağıdaki “okuyucu” isimli makromuzu, oluşturduğumuz butona atayıp, hücre değerini mesaj kutusunda kullanıcıya iletelim.

Aşağıdaki kodu Alt + F11 ile vba yı açalım Insert > Module ile müdül ekleyelim ve aşağıdaki kodu yazalım.
  

Sub okuyucu()
Dim oku As String
Oku = Range(“A1”).value
MsgBox oku
End Sub

Kodumuzu çalıştırdıktan sonraki Ekran görüntüsü aşağıdaki şekilde olmalıdır.

---

---

Makromuza bir satır ekleyerek, mesaj kutusundaki değeri istediğimiz hücreye yazdırabiliriz.
Bu örneğimizde mesaj kutusundaki değeri A2 hücresine yazdıralım

Sub okuyucu()
Dim oku As String
oku = Range("A1").Value
MsgBox oku
Range("A2").Value = oku
End Sub

Kaynak: Excel vba Örnek Dosyalar Cd'si
Makale: Ahmet Aşkın Küçükkaya