Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 1
- Excel Versiyonu
- Excel 2019
- Excel Sürümü
- 64 Bit
- Excel Dili
- İngilizce
Merhabalar
makromda sorun yaşıyorum acil destek
bir sayfada bulunan belirli hücreleri her butona bastığımda başka bir sayfada dolu olan her satırın bir altına değer olarak yapıştırmak istiyorum. fakat sürekli farklı hatalar alıyorum Subsctrip out of range gibi bazende sayfa bulunmadığından bahsediyor ama ne yazım hatası var ne de başka birşey sayfalarda mevcut.
aşağıda yazdığım kodu incelerseniz eğer
Sub VeriyiYapistir()
Dim KaynakSayfa As Worksheet
Dim HedefSayfa As Worksheet
Dim KaynakHucresi As Range
Dim HedefSatir As Long
Dim VeriHucresi As Range
' Kaynak ve Hedef sayfa adlarını belirtin
Set KaynakSayfa = ThisWorkbook.Sheets("Sayfa1")
Set HedefSayfa = ThisWorkbook.Sheets("Sayfa2")
Set KaynakHucresi = Union(KaynakSayfa.Range("A5"), KaynakSayfa.Range("B7"), KaynakSayfa.Range("C33"), KaynakSayfa.Range("I32"), KaynakSayfa.Range("F14"))
HedefSatir = HedefSayfa.Cells(Sayfa2.Rows.Count, "A2").End(xlUp).Row + 1
' Kaynak hücrelerini tek bir satırda sırayla yapıştır
For Each VeriHucresi In KaynakHucresi
HedefSayfa.Cells(HedefSatir, VeriHucresi.Column).Value = VeriHucresi.Value
Next VeriHucresi
End Sub
makromda sorun yaşıyorum acil destek
bir sayfada bulunan belirli hücreleri her butona bastığımda başka bir sayfada dolu olan her satırın bir altına değer olarak yapıştırmak istiyorum. fakat sürekli farklı hatalar alıyorum Subsctrip out of range gibi bazende sayfa bulunmadığından bahsediyor ama ne yazım hatası var ne de başka birşey sayfalarda mevcut.
aşağıda yazdığım kodu incelerseniz eğer
Sub VeriyiYapistir()
Dim KaynakSayfa As Worksheet
Dim HedefSayfa As Worksheet
Dim KaynakHucresi As Range
Dim HedefSatir As Long
Dim VeriHucresi As Range
' Kaynak ve Hedef sayfa adlarını belirtin
Set KaynakSayfa = ThisWorkbook.Sheets("Sayfa1")
Set HedefSayfa = ThisWorkbook.Sheets("Sayfa2")
Set KaynakHucresi = Union(KaynakSayfa.Range("A5"), KaynakSayfa.Range("B7"), KaynakSayfa.Range("C33"), KaynakSayfa.Range("I32"), KaynakSayfa.Range("F14"))
HedefSatir = HedefSayfa.Cells(Sayfa2.Rows.Count, "A2").End(xlUp).Row + 1
' Kaynak hücrelerini tek bir satırda sırayla yapıştır
For Each VeriHucresi In KaynakHucresi
HedefSayfa.Cells(HedefSatir, VeriHucresi.Column).Value = VeriHucresi.Value
Next VeriHucresi
End Sub
