[Yardım]  Excel'de Sayfalar Arası Koşullu Veri Aktarımı

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#1)  kurukafa » 16 Şub 2018 18:28

Kolay gelsin.
Kısaltmalar;
Tüm YDK listesi = A
KURUL GÜNDEMİ = B

Excel çalışma kitabında A sayfasında bulunan verileri B sayfasına aktarmak istiyorum fakat;

A sayfasında örneğin "X" sütunu kontrol edilip sütunda bulunan hücre "Hayır" ise;
"Hayır" hücresinin bulunduğu tüm satırı (Örneğin; A2, B2, C2,...V2, W2 hücreleri) B sayfasına aktarılacak.
"Evet" ise aktarım gerçekleşmeyecek.

A sayfasında "X" sütununda bulunan hücrelerden "Hayır" yazılı olanlar daha sonra "Evet" e dönüştüğünde, o hücrenin bulunduğu satırdaki veriler (Örneğin; A2, B2, C2,...V2, W2 hücreleri) "B" sayfasından silinecek.

Söz konusu işlem ile alakalı fonksiyon yada makro bilgisi olan arkadaşlar yardım edebilir mi?

Şimdiden herkese teşekkürler..
Kullanıcı avatarı
kurukafa
 
Kayıt: 16 Şub 2018 15:56
Meslek: memur
Yaş: 35
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#2)  hemso41 » 19 Şub 2018 18:23

Örnek dosya yollarsanız üzerinde çalışabiliriz.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 330
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#3)  kurukafa » 20 Şub 2018 10:59

Gönderdim inşallah açıklama anlaşılır olmuştur. Teşekkür ederim şimdiden. Kolay gelsin iyi çalışmalar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kurukafa
 
Kayıt: 16 Şub 2018 15:56
Meslek: memur
Yaş: 35
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#4)  hemso41 » 20 Şub 2018 18:24

Hayırlara taşımak için kodumuz
Kod: Tümünü seç
son = Range("x4").End(xlDown).Row
        For i = 4 To son
            If Cells(i, "X") = "Hayır" Then
                Sayfa1.Range("a" & i & ": w" & i).Copy
                Sayfa2.Range("a4").End(xlDown).Offset(1, 0).PasteSpecial xlPasteAll
                Application.CutCopyMode = False
            End If
        Next


Evet olduğumu silmek için sayfa1 change yordamına yazacağımız kod
Kod: Tümünü seç
If Target.Column = 24 Then
        If Target.Value = "evet" Then
            Set bul = Sayfa2.Range("a4:a500").Find(Cells(Target.Row, 1), LookIn:=xlValues)
                If Not bul Is Nothing Then
                    Sayfa2.Cells(bul.Row, 1).EntireRow.Delete shift:=xlUp
                End If
        End If
    End If
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 330
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#5)  azinphos » 20 Şub 2018 22:46

Merhabalar
Benim problemimde bu konuyla alakalı olduğu için buraya yazıyorum umarım forum kurallarını çiğnemiyorum.

Ekte gönderdiğim dosya da GENEL LİSTE ve 1. Liste şeklinde 2 farklı sayfa var. Genel listede B sütununda olan isimlere göre C sütunundaki değerleri 1.Liste Sayfasında aynı olan isimlerin karşılığında Yine C sütununa bağlantılı olarak atmasını istiyorum.


Yardımcı olabilirseniz sevinirim. Teşekkürler İyi Çalışmalar diliyorum
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
azinphos
Yeni Başlamış
 
Kayıt: 26 Şub 2017 13:38
Meslek: Laborant
Yaş: 23
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TRABZON/ORTAHİSAR

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#6)  hemso41 » 20 Şub 2018 23:38

1.sayfayı sadece verileri seçerek kopyalayınız ve diğer sayfada sağ tuş özel yapıştır seçeneklerinden bağlantı yapıştır seçeneğiyle dediğiniz işlemi gerçekleştirmiş olursunuz.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 330
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#7)  azinphos » 21 Şub 2018 10:07

Listeler aynı değil hocam. Örneğin ilk sayfada 260 adet isim varken ikinci sayfada bunun 80 tanesi var mesela ben aynı isme karşılık gelen değerleri atmasını istiyorum
Kullanıcı avatarı
azinphos
Yeni Başlamış
 
Kayıt: 26 Şub 2017 13:38
Meslek: Laborant
Yaş: 23
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TRABZON/ORTAHİSAR

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#8)  askmadige34 » 21 Şub 2018 11:30

Sorularınızı aynı konu olsa da farklı başlık ile sorarsanız daha çabuk çözüme ulaşırsınız.
Kod: Tümünü seç
Sub askm()
Dim BUL
Dim s1, s2 As Worksheet
Set s1 = Sheets("GENEL LİSTE")
Set s2 = Sheets("1. Liste")
Dim son1, son2 As Long
Application.ScreenUpdating = False
son1 = s1.Range("B" & Rows.Count).End(xlUp).Row
son2 = s2.Range("B" & Rows.Count).End(xlUp).Row
Set Alan = s1.Range("B2:B" & son1)
On Error Resume Next
s2.Select
For i = 2 To son2
    Set BUL = Alan.Find(s2.Cells(i, 2), , xlValues, xlPart)
    If Not BUL Is Nothing Then
        satir = BUL.Row
        s1.Cells(satir, 3).Copy
        s2.Cells(i, 3).Select
        ActiveSheet.Paste Link:=True
    End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1514
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#9)  azinphos » 21 Şub 2018 12:21

Hocam Ellerinize Sağlık Teşekkür ettim.
Bundan sonraki konuları o şekilde yaparım . İyi Günler İyi Çalışmalar diliyorum
Kullanıcı avatarı
azinphos
Yeni Başlamış
 
Kayıt: 26 Şub 2017 13:38
Meslek: Laborant
Yaş: 23
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TRABZON/ORTAHİSAR

Cevap: Excel'de Sayfalar Arası Koşullu Veri Aktarımı

İleti#10)  askmadige34 » 21 Şub 2018 12:54

Rica ederim. Kolay gelsin.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1514
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe