Veri Aktarma

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

Veri Aktarma

İleti#1)  emiroglu07 » 06 Şub 2020 08:42

Üstadlar kolay gelsin. Elimdeki excel doyasını bir türlü excele aktaramadım.
Sıkıntım şu satırlar yan yana değil yanei liste sayfasındaki verileri zirve sayfasındaki satırlara ve sutunlara aktaramadım bu konuda bi yardımcı olabilirseniz çok sevinirim. [ilginc]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Veri Aktarma

İleti#2)  emiroglu07 » 06 Şub 2020 13:39

Üstadlar daha pratik bir yol bula bilirmiyiz
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Veri Aktarma

İleti#3)  emiroglu07 » 07 Şub 2020 08:34

Üstadlar destek olabilecek kimse varmıdır. [uzulme]
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Veri Aktarma

İleti#4)  Miraç CAN » 07 Şub 2020 10:55

Tam olarak tablonuzu kavrayamadım, ne nereye, nereden gelecek vs. ama indis, satır ve kaçıncı formülleri çözebilir bence.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

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

Cevap: Veri Aktarma

İleti#5)  veyselemre » 07 Şub 2020 11:22

Kod: Tümünü seç
Sub aktar()
    Set sL = Sheets("LİSTE")
    Set sZ = Sheets("ZİRVE")
    sZ.Range("2:" & Rows.Count).ClearContents
    sat = 2
    For i = 2 To 32
        kod = sL.Cells(i, "A")
        tar = sL.Cells(i, "B")
        evrNo = sL.Cells(i, "C")
        For ii = 4 To 18
            toplam = sL.Cells(i, ii)
            If toplam > 0 Then
                sZ.Cells(sat, 1) = kod
                sZ.Cells(sat, 2) = sL.Cells(34, ii)
                sZ.Cells(sat, 3) = tar
                sZ.Cells(sat, 4).NumberFormat = "@"
                sZ.Cells(sat, 4) = Format(evrNo, "000000")
                sZ.Cells(sat, 5) = sL.Cells(36, ii)
                kdv = sL.Cells(35, ii)
                sZ.Cells(sat, 6) = kdv
                matrah = Round(toplam / (1 + kdv / 100), 2)
                sZ.Cells(sat, 7) = matrah
                hesKDV = Round(matrah * kdv / 100, 2)
                sZ.Cells(sat, 8) = hesKDV
                sZ.Cells(sat, 9) = matrah + hesKDV
                sZ.Cells(sat, 15) = sL.Cells(37, ii)
                sZ.Cells(sat, 16) = sL.Cells(38, ii)
                sZ.Cells(sat, 17) = sL.Cells(39, ii)
                sZ.Cells(sat, 18) = sL.Cells(40, ii)
                sat = sat + 1
            End If
        Next ii
    Next i
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 105
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Veri Aktarma

İleti#6)  emiroglu07 » 08 Şub 2020 17:11

Veysel bey öncelikle çok teşekkür ederim elerinize sağlık tablo verileri aktarmakta yanlız kredi kartını tutarlarınıda aktarmak istiyorum aynı satıra onu nasıl ekleye bilirim.
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Veri Aktarma

İleti#7)  emiroglu07 » 11 Şub 2020 14:32

Üstad program çok güzel oldu ellerine sağlık yanlız kredi kartı bölümüne ekleme yaptıuğımdatek stunu kabul ediyor diğer stunlarda hata veriyor ne yapmam gerekir. [ilginc]
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Veri Aktarma

İleti#8)  emiroglu07 » 11 Şub 2020 15:31

Üstad beceremedim bi türlü [dırdır]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Veri Aktarma

İleti#9)  veyselemre » 11 Şub 2020 23:04

Kod: Tümünü seç
Sub aktar()
    Set sL = Sheets("LİSTE")
    Set sZ = Sheets("ZİRVE")
    sZ.Range("2:" & Rows.Count).ClearContents
    sat = 2
    For i = 2 To 32
        kod = sL.Cells(i, "A")
        tar = sL.Cells(i, "B")
        evrNo = sL.Cells(i, "C")
            For ii = 4 To 18
            toplam = sL.Cells(i, ii)
            If toplam > 0 Then
                sZ.Cells(sat, 1) = kod
                sZ.Cells(sat, 2) = sL.Cells(34, ii)
                sZ.Cells(sat, 3) = tar
                sZ.Cells(sat, 4).NumberFormat = "@"
                sZ.Cells(sat, 4) = Format(evrNo, "000000")
                sZ.Cells(sat, 5) = sL.Cells(36, ii)
                kdv = sL.Cells(35, ii)
                sZ.Cells(sat, 6) = kdv
                matrah = Round(toplam / (1 + kdv / 100), 2)
                sZ.Cells(sat, 7) = matrah
                hesKDV = Round(matrah * kdv / 100, 2)
                sZ.Cells(sat, 8) = hesKDV
                sZ.Cells(sat, 9) = matrah + hesKDV
                sZ.Cells(sat, 15) = sL.Cells(37, ii)
                sZ.Cells(sat, 16) = sL.Cells(38, ii)
                sZ.Cells(sat, 17) = sL.Cells(39, ii)
                sZ.Cells(sat, 18) = sL.Cells(40, ii)
                If ii < 10 And sL.Cells(i, ii + 17) > 0 Then
                     sZ.Cells(sat, 12) = sL.Cells(i, ii + 17)
                End If
                sat = sat + 1
            End If
        Next ii
    Next i
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 105
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Veri Aktarma

İleti#10)  emiroglu07 » 12 Şub 2020 08:21

Veysel bey üstadım çok teşekkür ederim size zahmet verdim beni büyük bir yükten kurtardın. şkşk
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe