Ara bul, makrosu hata veriyor

[bilalakdeniz]

Veri sayfasındaki veriyi giriş sayfasına çekmek için makro yazmaya çalıştım hata veriyor.

 

[hamitcan]

Yazdığınız kodu çok fazla incelemedim. Ama aşağıdaki kodu kendinize uyarlayabilirsiniz.

Sub aktifsatirigetir()
Application.ScreenUpdating = False
Sheets("VERİ").Activate
 r = ActiveCell.Row
Sheets("GİRİŞ").Activate
Application.ScreenUpdating = False
Sheets("GİRİŞ").Rows(r) = Sheets("VERİ").Rows(r).Value
End Sub

 

[bilalakdeniz]

Sayın Halitcan, Giriş sayfasına verilerin gücreleri farklı, Satır halinde değilde, belirlediğim hücreye gelmesini istiyorum,

 

[sbayyigit]

Veri sayfasındaki veriyi giriş sayfasına çekmek için makro yazmaya çalıştım hata veriyor.

Bende office 2003 olduğu için evden dosyanızı açamadım. ama işyerinden açtığım dosyadan hatırldığım kadarıyla bu kodlar işini görür.

Sub ARAMA_BUL()
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("VERİ")
veri = s1.[A2] * 1 + 1
sayi = 51
'[D5] = Sheets("VERİ").Cells(Sheets("Giriş").Cells(2, 1) * 1 + 1, 1).Value

For b = 41 To 999
Dim veri


s1.Range("d" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("e" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("f" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("g" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("h" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("ı" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("j" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("k" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("l" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("m" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1
s1.Range("n" & b).Value = s2.Cells(veri, sayi).Value
sayi = sayi + 1

Next b

End Sub

 

[bilalakdeniz]

Sayın, sbayyigit çok teşekkür ederim. elinize sağlık,

 

[sbayyigit]

kolay gelsin iyi çalışmalar

 

[bilalakdeniz]

A sutunundaki sıra numarasına göre aktar

Giriş sayfasının a sutunundaki sayının yanındaki değerleri, data sayfasına kopyalamasını istiyorum. Teşekkürler,

 

[sbayyigit]

Giriş sayfasının a sutunundaki sayının yanındaki değerleri, data sayfasına kopyalamasını istiyorum. Teşekkürler,

a sütunundaki sıra numarasına göre derken neyi kasdettiğini tam olarak anlamadım. Anladığım kadarıyla yaptım. kolay gelsin