Bir sayfadaki verilerin bir başka sayfada istenilen alanlara aktarılması

[mustafa155]

sevgili arkadaşlar konu ile ilgili sorunun geniş açıklaması ekte gönderdiğim dosya içerisinde mevcuttur.

 

[ileriexcel]

mustafa kardeşim inşallah işine yarar
'sayfa hazırla
Private Sub CommandButton4_Click()
For Each bak In Range("b1:b50")
If bak = TextBox1 Then
bak.Select
Set s2 = Sheets("sayfa2")
ActiveCell.Offset(0, 0).Copy
s2.Range("g11").PasteSpecial
ActiveCell.Offset(0, 2).Copy
s2.Range("c11").PasteSpecial
ActiveCell.Offset(0, 3).Copy
s2.Range("c7").PasteSpecial
ActiveCell.Offset(0, 4).Copy
s2.Range("a8").PasteSpecial
ActiveCell.Offset(0, 5).Copy
s2.Range("g6").PasteSpecial
ActiveCell.Offset(0, 6).Copy
s2.Range("v6").PasteSpecial
Exit Sub
End If
Next
End Sub

 

[mustafa155]

sevgili ileriexcel zahmetinizden dolayı çok teşekkür ederim ancak sayfa2 deki ilgili alanlara yazılı olan bilgileri atmadı sadecebu alanları gri renkli hale getirdi.

 

[mustafa155]

sevgili ileriexcel zahmetinizden dolayı çok teşekkür ederim ancak sayfa2 deki ilgili alanlara yazılı olan bilgileri atmadı sadecebu alanları gri renkli hale getirdi.

sayın ileriexcel yukarıdaki bu mesajımdan dolayı kusura bakmayın verdiğiniz formüller hatasız çalışıyor ben acele ile çok küçük bir hata yapmışım elinize sağlık çok teşekkür ederim