İddaa Analiz Programı Destek

[G.Bale]

Abiler, ablalar, kardeşler selam.
Kendimce bir iddaa analiz programı geliştirdim. Bir noktada sizden yardım almam gerekti, aslında epey basit bir işlem ama ben kodları tamamen unuttuğumu fark ettim. Kodun yapmasını istediğim işlem şu;
"Analiz" sayfasındaki şu bilgileri "Analizi Kaydet" butonu yardımıyla "Sonuçlar" sayfasına kaydetmek:
-A1 hücresindeki ev sahibi takım adını "Sonuçlar" sayfasındaki A2 hücresinden,
-F1 hücresindeki deplasman takım adını "Sonuçlar" sayfasındaki D2 hücresinden,
-M9 hücresindeki ev sahibi gollerini "Sonuçlar" sayfasındaki B2 hücresinden,
-P9 hücresindeki deplasman gollerini "Sonuçlar" sayfasındaki C2 hücresinden,
-M5 hücresindeki ev sahibi güç indeksini "Sonuçlar" sayfasındaki E2 hücresinden,
-N5 hücresindeki deplasman güç indeksini "Sonuçlar" sayfasındaki F2 hücresinden
başlayarak aktarmasını istiyorum.
Yani ilk analiz bilgilerini 2. satıra, sonrakileri 3. satır, 4.satır diye otomatik gitmesini istiyorum.
Bunu yapmak mümkün müdür?
Şimdiden yardımlara teşekkürler.

 

[Muhammet Okumuş]

Dosya ekleyin.

 

[G.Bale]

Örnek dosya eklenmiştir.

 

[Muhammet Okumuş]

Sub Aktar()
Set s = Sheets("Sonuçlar")
x = s.Cells(Rows.Count, 1).End(3).Row + 1
s.Cells(x, 1) = Range("A1").Value
s.Cells(x, 4) = Range("F1").Value
s.Cells(x, 2) = Range("M9").Value
s.Cells(x, 3) = Range("P9").Value
s.Cells(x, 5) = Range("M5").Value
s.Cells(x, 6) = Range("N5").Value
Set s = Nothing
End Sub

Kodu deneyiniz.

 

[G.Bale]

Kodu deneyiniz.

çok teşekkürler, sorunsuz çalışıyor.