1 sayfadan 1. sayfa

Veri Aktarma

İletiTarih: 06 Şub 2020 08:42
emiroglu07
Ü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]

Cevap: Veri Aktarma

İletiTarih: 06 Şub 2020 13:39
emiroglu07
Üstadlar daha pratik bir yol bula bilirmiyiz

Cevap: Veri Aktarma

İletiTarih: 07 Şub 2020 08:34
emiroglu07
Üstadlar destek olabilecek kimse varmıdır. [uzulme]

Cevap: Veri Aktarma

İletiTarih: 07 Şub 2020 10:55
Miraç CAN
Tam olarak tablonuzu kavrayamadım, ne nereye, nereden gelecek vs. ama indis, satır ve kaçıncı formülleri çözebilir bence.

Cevap: Veri Aktarma

İletiTarih: 07 Şub 2020 11:22
veyselemre
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

Cevap: Veri Aktarma

İletiTarih: 08 Şub 2020 17:11
emiroglu07
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.

Cevap: Veri Aktarma

İletiTarih: 11 Şub 2020 14:32
emiroglu07
Ü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]

Cevap: Veri Aktarma

İletiTarih: 11 Şub 2020 15:31
emiroglu07
Üstad beceremedim bi türlü [dırdır]

Cevap: Veri Aktarma

İletiTarih: 11 Şub 2020 23:04
veyselemre
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

Cevap: Veri Aktarma

İletiTarih: 12 Şub 2020 08:21
emiroglu07
Veysel bey üstadım çok teşekkür ederim size zahmet verdim beni büyük bir yükten kurtardın. şkşk