[Yardım]  Veri aktarma yardım lazım !!

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Veri aktarma yardım lazım !!

İleti#1)  cfy66 » 15 Nis 2019 07:14

Merhaba Arkadaşlar;
Ekte paylaştığım dosyada sayfa1 de yer alan verileri sayfa2 de yer alan formata aktarmak istiyorum. Fakat, aktarırken yapmak istediğim şey 5. satırda yer alan birim adı kısmını seçtiğimde sayfa1 de yer alan birim çalışanlarının gelmesi. Şöyle ki birim a 'yı seçtiğimde o birim de çalışan kaç kişi varsa onlar gelecek. Yani demem o ki sayfa2 deki teslim tutanağını birim birim tek tek uğraşmak yerine tek seferde nasıl birim birim yapabilirim? Yardımlarını bekliyorum. Şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cfy66
Yeni Başlamış
 
Kayıt: 29 Arl 2015 17:23
Meslek: İSG uzmanı
Yaş: 29
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Veri aktarma yardım lazım !!

İleti#2)  ahmetilhan282 » 15 Nis 2019 20:29

Çözümüm ektedir. Kodlar:
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("A5").Address Then
        Range("B7:B23").ClearContents
        Range("D7:E23").ClearContents
        If Target = Empty Then Exit Sub
        Dim i&, ss&, satir&
        ss = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row
        satir = 7
        For i = 3 To ss
            If Sayfa1.Cells(i, 2) = Target.Value Then
                Cells(satir, 2) = Sayfa1.Cells(i, 3)
                Cells(satir, 5) = Sayfa1.Cells(i, 4)
                satir = satir + 1
            End If
        Next i
    End If
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 798
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Veri aktarma yardım lazım !!

İleti#3)  cfy66 » 16 Nis 2019 13:42

Hocam elinize sağlık tam istediğim gibi olmuş.
Kullanıcı avatarı
cfy66
Yeni Başlamış
 
Kayıt: 29 Arl 2015 17:23
Meslek: İSG uzmanı
Yaş: 29
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Veri aktarma yardım lazım !!

İleti#4)  cfy66 » 17 Nis 2019 07:04

Hocam gönderdiğiniz dosyaya şöyle bir şey ekleyebilir miyiz? Sayfa 1 yer alan listedeki birimlerde çalışan sayısına göre liste sonlansın. Örneğin Birim A da 2 kişi çalışıyor teslim formunda 2 kişi olsun ve alt kısım olmasın veya Birim B de 35 kişi çalışıyor aynı şekilde 35 ten sonra sonlansın. Şu an için gönderdiğiniz ek işimi görüyor ama dediğim olursa tadından yenmez. [yummy]
Kullanıcı avatarı
cfy66
Yeni Başlamış
 
Kayıt: 29 Arl 2015 17:23
Meslek: İSG uzmanı
Yaş: 29
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

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

Cevap: Veri aktarma yardım lazım !!

İleti#5)  ahmetilhan282 » 21 Nis 2019 00:38

Bu kodları deneyin:
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("A5").Address Then
        Application.ScreenUpdating = False
        Dim i&, ss&, satir&
        ss = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row
        If ss > 6 Then Range("A7:G" & ss).Clear
        If Target = Empty Then GoTo bitis
        satir = 7
        For i = 3 To ss
            If Sayfa1.Cells(i, 2) = Target.Value Then
                Cells(satir, 1) = satir - 6
                Cells(satir, 2) = Sayfa1.Cells(i, 3)
                Cells(satir, 3) = "KOMPOZİT BURUN KEVLAR ARA TABAN (S3) İŞ BOTU"
                Cells(satir, 5) = Sayfa1.Cells(i, 4)
                Cells(satir, 6) = "......../......./" & Year(Now)
                satir = satir + 1
            End If
        Next i
        satir = satir - 1
        With Range("A7:G" & satir)
            .Borders.Value = 1
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Font.Bold = True
            .Font.Size = 16
            Range("C7:C" & satir).Font.Size = 12
        End With
        Me.PageSetup.PrintArea = "A1:G" & satir
bitis:
        i = Empty: ss = Empty: satir = Empty
        Application.ScreenUpdating = True
    End If
End Sub
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 798
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Veri aktarma yardım lazım !!

İleti#6)  cfy66 » 22 Nis 2019 13:54

Eyvallah Hocam ellerinize sağlık şimdi 10 numara oldu. şkşk şkşk --)(
Kullanıcı avatarı
cfy66
Yeni Başlamış
 
Kayıt: 29 Arl 2015 17:23
Meslek: İSG uzmanı
Yaş: 29
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 0 misafir

Bumerang - Yazarkafe