Bir sayfadan diğerine istenilen verileri aktarmak

[schero26]

Öğretmenim ve amacım bir soru bankası/soru havuzu gibi birşey oluşturmak..

Örnek dosyada 50-100 veya daha fazla şekilde soru yer alacak ve başlarında da EKLE butonu yer alacak. EKLE butonuna bastığımda hemen yanında bulunan soru SONUC sayfasına aktarılacak.

Ama örneğin 1. soruyu seçtim ve SONUC sayfasında örneğin A1 hücresine aktardım. Sonra 5. soruyu seçip onu da 1. sorunun hemen arkasına eklemek istiyorum. Sonra başka bi soruyu seçip yine bir önce seçtiğim soruların arkasına eklemek istiyorum. Bu şekilde rastgele sorular seçip arka arkaya eklemek istiyorum.

Her EKLE butonuna tek tek makro atamam gerekiyor mu yoksa daha kolay ve başka yolu var mı? (Seçmek istediğim soruların başına TİK koyup seçilenleri Aktar gibi.)

Örnek dosya ekte verilmiştir.

 

[Orion1]

Sorunun üzerine çift tıklayınız.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo son
If Intersect(Target, [C5:C65536]) Is Nothing Then Exit Sub
Set s2 = Sheets("SONUC")
sat = s2.Cells(65536, "A").End(xlUp).Row + 1
s2.Cells(sat, "A").Value = Target.Value
Cancel = True
son:
End Sub

 

[cebir]

merhaba..
çok kıymetli üstad erken davranmış ama
yapmışken gönderiyorum.işinize yararsa
üstada saygılar..

 

[schero26]

Arkadaşlar dosyaları inceledim. Öncelikle yardımlarınız için teşekkür ederim. Yaptığınız şekillerde de olabilir. Ben yavaş yavaş soruları gireyim ileriki aşamalarda herhangi bir sorun yaşarsam tekrar yardımlarınıza başvururum. Tekrar teşekkürler.