Başka sayfadan veri kopyalamada yazı karakteri sorunu! Lütfen Yardım

[mikadotr]

Arkadaşlar benim sorunum kısaca şöyle.
Sayfa1, sayfa2, Veriler adında 3 adet sayfam var. Sayfa3 verilerimin kayıtlı olduğu sayfa. Sayfa1 ve sayfa2 de combobox'lar yardımıyla sayfa3'ten veri alıyorum. Bunun için şöyle bir kod kullanıyorum

Kod:

Private Sub ComboBox1_Change()
satir1 = ComboBox1.ListIndex + 2
Sayfa = ("Veriler")

Cells(4, 7) = Sheets(Sayfa).Cells(satir1, 2)

Dim i As Integer
Dim j As Integer
Dim sayac As Integer
sayac = 3
For j = 7 To 19
For i = 1 To 5
Cells(j, i) = Sheets(Sayfa).Cells(satir1, sayac)
sayac = sayac + 1
Next i
Next j

End Sub

Asıl sorun şu;
Sayfa 3'de bir hücre farklı yazı karakterleri içeriyorsa, kopyalama yaparken yazı karakterini kopyalamayıp, sadece yazının kendisini kopyalıyor. Oysa direk kopyala yapıştır gibi yapmasını istiyorum. Yardımcı olacaklara şimdiden teşekkürler.

 

[Orion1]

Arkadaşlar benim sorunum kısaca şöyle.
Sayfa1, sayfa2, Veriler adında 3 adet sayfam var. Sayfa3 verilerimin kayıtlı olduğu sayfa. Sayfa1 ve sayfa2 de combobox'lar yardımıyla sayfa3'ten veri alıyorum. Bunun için şöyle bir kod kullanıyorum

Kod:

Asıl sorun şu;
Sayfa 3'de bir hücre farklı yazı karakterleri içeriyorsa, kopyalama yaparken yazı karakterini kopyalamayıp, sadece yazının kendisini kopyalıyor. Oysa direk kopyala yapıştır gibi yapmasını istiyorum. Yardımcı olacaklara şimdiden teşekkürler.

Bunun hızı diğerinin hızından düşüktür.

Private Sub ComboBox1_Change()
satir1 = ComboBox1.ListIndex + 2
Sayfa = ("Veriler")
[B][COLOR="Red"]
Sheets(Sayfa).Cells(satir1, 2).copy Cells(4, 7)[/COLOR][/B]

Dim i As Integer
Dim j As Integer
Dim sayac As Integer
sayac = 3
For j = 7 To 19
For i = 1 To 5
[B][COLOR="Red"]Sheets(Sayfa).Cells(satir1, sayac).copy Cells(j, i)[/COLOR][/B]
sayac = sayac + 1
Next i
Next j

End Sub

 

[mikadotr]

Çok teşekkür ederim. İstediğim şeyi yaptı ama dediğin gibi bariz bir yavaşlama oldu. Ayrıca dolgu rengi ve kenarlıklarıda bozdu. Sanırım farklı bir yöntem bulmam gerekecek.