Sekmeler Arasında Veri Aktarma

  • Konuyu başlatan Konuyu başlatan akerim
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

akerim

Katılım
28 Tem 2022
Mesajlar
25
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba
Gönderdiğim örnek excelde "genel hedefler" sekmesindeki isimlere ait hedefleri "personel hedefleri" sekmesine atabilecek bir formül için yardımcı olabilir misiniz? İlk formülü yazıp aşağı doğru çektiğimizde diğer sayfada yatay olarak verilen hedefleri "personel hedefleri" sekmesine dikey olarak otomatik alacak bir formül. Teşekkür ederim. örnek dosyayı yükleyemediğim için link koyuyorum.
Send
 
Hücrelerdeki Değerleri Sayıya Çevirme
Boşluk Ekle Kopyala Yapıştır Yapma
Çözüm
okutkan
Herhangi bir sayfaya buton ekleyip aşağıdaki kodu kullanabilirsiniz.
Visual Basic: 
Dim GH As Worksheet
Dim PH As Worksheet
Set GH = Sheets("GENEL HEDEFLER")
Set PH = Sheets("PERSONEL HEDEF")

For i = 4 To PH.Cells(Rows.Count, 2).End(3).Row Step 3
    For k = 4 To GH.Cells(Rows.Count, 1).End(3).Row
        If PH.Cells(i, "B") = GH.Cells(k, "A") Then
        PH.Cells(i, "E") = GH.Cells(k, "c")
        PH.Cells(i + 1, "E") = GH.Cells(k, "E")
        PH.Cells(i + 2, "E") = GH.Cells(k, "F")
        Exit For
        End If
    Next k
Next i
Tarihe göre sırala Oylamaya göre sırala
Herhangi bir sayfaya buton ekleyip aşağıdaki kodu kullanabilirsiniz.
Visual Basic: 
Dim GH As Worksheet
Dim PH As Worksheet
Set GH = Sheets("GENEL HEDEFLER")
Set PH = Sheets("PERSONEL HEDEF")

For i = 4 To PH.Cells(Rows.Count, 2).End(3).Row Step 3
    For k = 4 To GH.Cells(Rows.Count, 1).End(3).Row
        If PH.Cells(i, "B") = GH.Cells(k, "A") Then
        PH.Cells(i, "E") = GH.Cells(k, "c")
        PH.Cells(i + 1, "E") = GH.Cells(k, "E")
        PH.Cells(i + 2, "E") = GH.Cells(k, "F")
        Exit For
        End If
    Next k
Next i
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt