• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü İki sayfa arasındaki ortak değerleri bulmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Eres

Yeni Üye
Katılım
10 Ara 2018
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
Karabük
Ad Soyad
Eres Akarsu
Merhabalar. Elimde iki sayfa var bu sayfalar arasında birisinde + ve - olmak üzere bir liste var. Diğer listede ise 100 kişinin olduğu bir liste var. Bu iki liste arasında +/- atanları 100 kişilik liste arasından bulup boş bir safya çekmek istiyorum. Bunu tam olarak nasıl yapabilirim acaba?
1544436807586.png 1544436894074.png
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba,
Örnek bir dosya yollarsanız üzerinde çözüm sunabiliriz.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Sayfa3 ekleyerek bu kodları kullanabilirsiniz.
Çözüm dosyasını da ek'te bulabilirsiniz.
PHP:
Sub Emre()
    Dim i%, son%, etf As Range
    With Sayfa3
        .Activate
        .DrawingObjects.Delete
        .Cells.Clear
        For i = 2 To Sayfa2.Range("A65536").End(3).Row
            Set etf = Sayfa1.Columns(3).Find(Sayfa2.Cells(i, 1).Value, , , 2)
            If Not etf Is Nothing Then
                son = .Cells(Rows.Count, "C").End(3).Row + 1
                Sayfa1.Rows(etf.Row & ":" & etf.Row + 3).Copy .Range("A" & son)
            End If
        Next i
        .Columns.AutoFit
    End With
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    Set etf = Nothing: son = Empty: i = Empty
End Sub
 

Ekli dosyalar

  • Kopyala.rar
    1.1 MB · Görüntüleme: 23

Eres

Yeni Üye
Katılım
10 Ara 2018
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
Karabük
Ad Soyad
Eres Akarsu
Çok teşekkür ediyorum hocam ellerinize sağlık, ufak bir sorum olacaktı. Bu sayfa bir ve iki deki sayı arta da bilir bir problem olur mu bu? atıyorum 100 satır ise 500'e de yükseltip kullanabilir miyim? Kodta bir hata oluşur mu?
 

Eres

Yeni Üye
Katılım
10 Ara 2018
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
Karabük
Ad Soyad
Eres Akarsu
Çok teşekkür ediyorum hocam tekrardan.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt