Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama

Excel'de bir formüle ihtiyacım var

Konu, 'Her Telden' kısmında umutozturk51 tarafından paylaşıldı.


Sayfayı Paylaş /bbnetsosyal

  1. umutozturk51

    umutozturk51 Aktif Üye

    Kayıt:
    1 Ekim 2007
    Mesajlar:
    166
    Beğeni:
    0
    merhaba arkadaşlar excel ile ilgili bi sorum olacaktı. aşağıdaki gibi bir tabloda;

    örneğin: F sütununda değeri 8 olanların NO ve ADI SOYADI hücrelerini sayfa2 deki A ve B hücrelerine aktaran formül nasıl olmalıdır. şimdiden teşekkür ederim.
     

    Ekli Dosyalar:

  2. mystreous

    mystreous Süper Üye Süper Üye

    Kayıt:
    14 Aralık 2007
    Mesajlar:
    1.321
    Beğeni:
    3
    ben de merak ettim
     
  3. gozzde

    gozzde Aktif Üye

    Kayıt:
    16 Eylül 2009
    Mesajlar:
    201
    Beğeni:
    0
    Kendimce bir örnekte yapmaya çalıştım umarım doğru olmuştur. Bir bakın isterseniz. Ekte dosyayı yolluyorum.
     

    Ekli Dosyalar:

  4. uyurgezer

    uyurgezer Seçkin Üye Seçkin Üye

    Kayıt:
    3 Ekim 2011
    Mesajlar:
    317
    Beğeni:
    20
    ??? :shock:
     
  5. alpi

    alpi Süper Üye Süper Üye

    Kayıt:
    14 Mayıs 2007
    Mesajlar:
    1.124
    Beğeni:
    6
    =EĞER(Sayfa1!C2=8;Sayfa1!B2;"")
     
  6. denizlerb

    denizlerb Süper Üye Süper Üye

    Kayıt:
    28 Eylül 2007
    Mesajlar:
    1.753
    Beğeni:
    2
    arkadaşın istediği bu değil sanırım. 8 olanları alt altasıralamak istiyor. bu şekilde aralarda boşluklar kalır.
     
  7. umutozturk51

    umutozturk51 Aktif Üye

    Kayıt:
    1 Ekim 2007
    Mesajlar:
    166
    Beğeni:
    0
    evet hocam altalta sıralamak istiyorum
     
  8. mkarahan

    mkarahan Site Gezgini

    Kayıt:
    6 Mart 2008
    Mesajlar:
    50
    Beğeni:
    1
    Sanırım böyle istiyorsun
     

    Ekli Dosyalar:

  9. umutozturk51

    umutozturk51 Aktif Üye

    Kayıt:
    1 Ekim 2007
    Mesajlar:
    166
    Beğeni:
    0
    hocam yine olmadı yaptığınız örnekte hepsi 8 olduğu için altalta geliyor ama aradan bi tanesini 9 yaptığımda yine boş satır oluyor
     
  10. ergensoft

    ergensoft Aktif Üye

    Kayıt:
    8 Mart 2008
    Mesajlar:
    156
    Beğeni:
    3
    Hocam boş kalan satırları en son MAKROY la silin gitsin...

    =EĞER(Sayfa1!C1=8;Sayfa1!A1;"")
    =EĞER(Sayfa1!C1=8;Sayfa1!B1;"")
    =EĞER(Sayfa1!C1=8;Sayfa1!C1;"")
    bu şekilde uymayan satıral boş kalıyor
    bir makro ekleyin sayfaya boş satırları silme makrosu forumlarda vardır.. daha pratik çözümü olan varsa şimdilik aklıma gelen bu..
     
  11. mebbis

    mebbis Seçkin Üye Seçkin Üye

    Kayıt:
    10 Ekim 2010
    Mesajlar:
    550
    Beğeni:
    6
    Hocam Makroyla 8 olanları aktarma işlemi yapabilirsiniz galiba sanırsam :)
     
  12. umutozturk51

    umutozturk51 Aktif Üye

    Kayıt:
    1 Ekim 2007
    Mesajlar:
    166
    Beğeni:
    0
    deneyeceğim hocam teşekkür ediyorum sizlere
     
  13. ktektas

    ktektas Seçkin Üye Seçkin Üye

    Kayıt:
    17 Ocak 2008
    Mesajlar:
    843
    Beğeni:
    18
    filtre uygulayıp sonra diğer sayfaya aktarsan olmaz mı?
     
  14. umutozturk51

    umutozturk51 Aktif Üye

    Kayıt:
    1 Ekim 2007
    Mesajlar:
    166
    Beğeni:
    0
    hocam daha sonradan ekleme veya değişiklik yapıldığı zaman sıkıntı olacak. onun için tek seferde yapmak istiyorum mümkünse :)
     
  15. umutozturk51

    umutozturk51 Aktif Üye

    Kayıt:
    1 Ekim 2007
    Mesajlar:
    166
    Beğeni:
    0
  16. psia

    psia Aktif Üye

    Kayıt:
    30 Eylül 2007
    Mesajlar:
    117
    Beğeni:
    2
    Hangi notlar kopyalancaksa soruyor, boş satır buluncaya kadar Aktif Sayfaya (Komut butonunun olduğu) sayfaya kopyalıyor.

    Bu arada Makroyu aktifleştirmek gerek.

    Kod:
     Dim iSatir, cSatir As Integer
        Dim sNot As Integer
        sNot = InputBox("Notları Kopyala", "Kopyalanacak notu giriniz", "", ActiveCell.Top, ActiveCell.Left, 0, 0)
        cSatir = 2
        iSatir = 2
        
        Do While (Sayfa1.Cells(iSatir, 3) <> "")
            If Sayfa1.Cells(iSatir, 3) = sNot Then
                ActiveSheet.Cells(cSatir, 1) = Sayfa1.Cells(iSatir, 1)
                ActiveSheet.Cells(cSatir, 2) = Sayfa1.Cells(iSatir, 2)
                ActiveSheet.Cells(cSatir, 3) = Sayfa1.Cells(iSatir, 3)
                cSatir = cSatir + 1
            End If
            
            iSatir = iSatir + 1
        Loop
     

    Ekli Dosyalar:

Sayfayı Paylaş /bbnetsosyal