Makro Ile Hücreye Veri Yazmak

[kara-okyanus]

Herkese merhaba, kardeşime bilgisayar kursundan Excel ile ilgili hazırlık olsun diye bir ödev vermişler ama henüz konuyu anlatmadıkları için nasıl yapıldığını bilmiyor; ben de sizden yardım almak istedim. Ödev, aşağıdaki resimde görüldüğü gibi, renkli kutular oluşturup "start" butonuna basarak, başka bir kutuda ilgili metni ve altında başka bir kutuda da "imza" kısmını çıkarmak. Yardımlarınızı bekliyorum...

 

 

 

Konunun ismini söyleseniz de olur veya excel de hangi seçenekle ilgili olduğu; youtube dan bulabilirim belki.

[KintaRo]

Makro ile bu mümkün.

 

Sub Düğme1_Tıklat()

' değişkenleri tanımla
Dim isim As String
Dim yas As Integer
Dim sirket As String

' verileri al
isim = Range("K4").Value
yas = Range("K5").Value
sirket = Range("K6").Value


Range("H15:L21").Value = "İsminiz: " & isim & vbCrLf & "Yaşınız: " & yas & vbCrLf & "Şirketiniz: " & sirket ' metni yazdır

'
End Sub


Sub temizle()
Range("H15:L21").Value = ""
End Sub

Not: vbCrLf alt satıra geçiş karakteridir.

 

 

http://www.mediafire.com/download/s0md6rocovzojbs/makro.xlsm

[kara-okyanus]

Makro ile bu mümkün.

 

Yardımlarınız için çok teşekkürler. Bunun üzerinde uğraşıp öğrenmek daha kolay olacak.