- Katılım
- 29 Ocak 2014
- Mesajlar
- 130
- Excel Vers. ve Dili
-
OpenOffice,
Office 365,
Google Sheets,
Excel Vba
- Altın Üyelik Bitiş Tarihi
- 24.12.2022
Merhaba Arkadaşlar,
Aşağıdaki vba kod da senaryo yu anlatmak isterim.
Excel dosyasında, sayfalar arasında "profil no" ya göre veri çekmek istiyorum.
Ayrıntılı olarakta şu şekilde anlatayım. "Dim kaynakSayfa As Worksheet" sayfasında bulunan "F" Sütunundaki "Profil No" başlığına bakarak, "Dim hedefSayfa As Worksheet" sayfasında X1 hücresine ne yazdıysam ona göre verileri getirmesini istiyorum.
Yardımlarınızı bekliyorum. saygılarımla
DOSYA LİNK:
DENEME.xlsm - 733 KB
EXCEL VBA KOD:
Aşağıdaki vba kod da senaryo yu anlatmak isterim.
Excel dosyasında, sayfalar arasında "profil no" ya göre veri çekmek istiyorum.
Ayrıntılı olarakta şu şekilde anlatayım. "Dim kaynakSayfa As Worksheet" sayfasında bulunan "F" Sütunundaki "Profil No" başlığına bakarak, "Dim hedefSayfa As Worksheet" sayfasında X1 hücresine ne yazdıysam ona göre verileri getirmesini istiyorum.
Yardımlarınızı bekliyorum. saygılarımla
DOSYA LİNK:
DENEME.xlsm - 733 KB
EXCEL VBA KOD:
Private Sub CommandButton1_Click()
Range("A1:V999999").ClearContents
Dim kaynakSayfa As Worksheet
Dim hedefSayfa As Worksheet
' Kaynak sayfayı belirtin
Set kaynakSayfa = Sheets("Güncel")
' Hedef sayfayı belirtin
Set hedefSayfa = Sheets("Sayfa1")
' Verileri kopyalayın
kaynakSayfa.Range("A1:w9999").Copy hedefSayfa.Range("A1")
' Belleği temizleyin
Application.CutCopyMode = False
End Sub
Son düzenleme: