[Yardım]  seç kopyala yapıştır hk. yardım veya öneri alabilirmym

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

seç kopyala yapıştır hk. yardım veya öneri alabilirmym

İleti#1)  SBAG1987 » 16 Nis 2019 09:43

sayfa1deki belirli verilerim var bunlarn içinden 108...... kodu ile başlayan verileri veri girişne ilk boşsatırdan itibaren taşımak istiyorum. hesap planı sayfasındaki 808 kodlu hesabıda 108li hesapların altında getirip ayrı bir muhasebe kaydı oluşturmak istiyorum.
dosya eklidir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
SBAG1987
Yeni Başlamış
 
Kayıt: 26 Mar 2018 15:18
Meslek: muhasebe
Yaş: 32
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: seç kopyala yapıştır hk. yardım veya öneri alabilirm

İleti#2)  ahmetilhan282 » 16 Nis 2019 22:24

Aşağıdaki kodu deneyin:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    Dim i&, ss&
    With Sheets("Veri Girişi")
        ss = .Cells(Rows.Count, 3).End(xlUp).Row + 1
        For i = 6 To 900000
            If Cells(i, "F") = "" Then Exit For
            If Cells(i, "F") Like "108.*" Then
                .Cells(ss, 2) = Cells(i, "AA")
                .Cells(ss, 3) = Cells(i, "F")
                .Cells(ss, 4) = Cells(i, "G")
                .Cells(ss, 5) = Cells(i, "M")
                .Cells(ss, 6) = Cells(i, "N")
                .Cells(ss, 7) = Cells(i, "O")
                .Cells(ss, 8) = Cells(i, "Q")
                .Cells(ss, 9) = Cells(i, "R")
                .Cells(ss, 10) = Cells(i, "Z")
                ss = ss + 1
            End If
        Next i
    End With
    ss = Empty: i = Empty
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: seç kopyala yapıştır hk. yardım veya öneri alabilirm

İleti#3)  SBAG1987 » 17 Nis 2019 08:00

merhabalar ilgilendiğiniz için teşekküler.
108.li hesapları getiriyor bi eksiğimiz var kaydı kapatmak için hesap planı sayfasındaki

808.02.001-MARKET Z RAPORU KREDİ KARTI İLE SATIŞLAR hs. 108lerin altına gelerek, 108lerin toplamına eşit olması olması tutarında alacak kısmında yer alması lazım. karşısına diğer açıklamalarnda gelmesi lazım.

01.04.2019-108.02.001AKBANK POS 162,00 Y7/19040001 Muhtelif Müşteriler 1 7 2842
01.04.2019-108.03.001GARANTİ POS 269,00 Y7/19040001 Muhtelif Müşteriler 1 7 2842
01.04.2019-108.04.001İŞBANK POS 44,50 Y7/19040001 Muhtelif Müşteriler 1 7 2842
01.04.2019-808.02.001MARKET Z RAPORU KREDİ KARTI İLE SATIŞLAR475,50 Y7/19040001 Muhtelif Müşteriler 1 7 2842

bu şekilde
Kullanıcı avatarı
SBAG1987
Yeni Başlamış
 
Kayıt: 26 Mar 2018 15:18
Meslek: muhasebe
Yaş: 32
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Alexa [Bot] ve 1 misafir

Bumerang - Yazarkafe