• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listeyi yevmiye fisi seklinde borc alacak olarak kayit etme

C

canburak

Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Merhabalar , yapmak istedigim, Fis giris sayfamda C3 hucresinde ana hesabin var burdaki hesabi 6 ci satirdaki hesaplarin borc alacak durumuna gore Veri sayfasina ornekteki gibi borlu hesap uste alacak taki hesap altta olacak sekilde makro ile nasil kayit yapa biliriz. Not her islem bir kayit ve fis numarasi ayni olacak borc alacak olarak, ornekte oldugu gibi,

Simdiden yardimlariniz icin tesekkur ederim

Saygilarimla,
 

Ekli dosyalar

Merhabalar, dahada anlasilir olmasi icin assagidaki resmin solundaki listedeki bilgileri sagindaki tablodaki gibi kayit etmek istiyorum.

236908
 

Ekli dosyalar

  • 1654333881479.png
    1654333881479.png
    30.9 KB · Görüntüleme: 0
Böyle dener misiniz ?
Kod: 
Private Sub CommandButton1_Click()
Sheets("Veri").[a2:g500].Clear
    x = Sheets("Fis girisi").[a65536].End(3).Row
    k = 1
    For i = 6 To x
    k = k + 1
    a = a + 1
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, 1) = a
    k = k + 1
    Sheets("Veri").Cells(k, 1) = a
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, "c") = "KASA HESABI"
    If Sheets("Veri").Cells(k - 1, "e") > 0 Then
    Sheets("Veri").Cells(k, "f") = Sheets("Veri").Cells(k - 1, "e")
    Sheets("Veri").Cells(k, "e") = ""
    Else
    Sheets("Veri").Cells(k, "e") = Sheets("Veri").Cells(k - 1, "f")
    Sheets("Veri").Cells(k, "f") = ""
    End If
    Sheets("Veri").Cells(k, "g") = IIf(Sheets("Veri").Cells(k - 1, "g") = "A", "B", "A")
    Next
    Sheets("Veri").[a2:g500].Sort key1:=Sheets("Veri").[a2], Order1:=xlAscending, key2:=Sheets("Veri").[g2], Order2:=xlDescending
End Sub
 
hamitcan' Alıntı:
Böyle dener misiniz ?
Kod: 
Private Sub CommandButton1_Click()
Sheets("Veri").[a2:g500].Clear
    x = Sheets("Fis girisi").[a65536].End(3).Row
    k = 1
    For i = 6 To x
    k = k + 1
    a = a + 1
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, 1) = a
    k = k + 1
    Sheets("Veri").Cells(k, 1) = a
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, "c") = "KASA HESABI"
    If Sheets("Veri").Cells(k - 1, "e") > 0 Then
    Sheets("Veri").Cells(k, "f") = Sheets("Veri").Cells(k - 1, "e")
    Sheets("Veri").Cells(k, "e") = ""
    Else
    Sheets("Veri").Cells(k, "e") = Sheets("Veri").Cells(k - 1, "f")
    Sheets("Veri").Cells(k, "f") = ""
    End If
    Sheets("Veri").Cells(k, "g") = IIf(Sheets("Veri").Cells(k - 1, "g") = "A", "B", "A")
    Next
    Sheets("Veri").[a2:g500].Sort key1:=Sheets("Veri").[a2], Order1:=xlAscending, key2:=Sheets("Veri").[g2], Order2:=xlDescending
End Sub
Genişletmek için tıkla ...
Tesekkurler Ustat eline saglik calisiyor, lakin veri sayfasinda veriyi ustune yaziyor, veri sayfasindan son bos satira getirmesi lazim, birde eger mumkunse her fise ait borc satir uste alacak satir altta getire bilirmiyiz assagidaki resimdeki gibi?
Saygilarimla,

236919
 
Birde ustat zahmet olmazsa bu verideki "I" sutununa sira numarasi ekleye bilirmiyiz son verinin1+2+3 diye gitmesi lazim veri tablosunda enson buyuk sayidan +1 seklinde Assagidaki ornek resmi ekliyorum
Tesekkurler,

236920
 
C++: 
x = Sheets("veri").[a65536].End(3).Row
    For a = 2 To x
    Sheets("Veri").Range("I" & a) = a - 1
    Next a
Next altına yapıştır.
 
Greenblacksea53' Alıntı:
C++: 
x = Sheets("veri").[a65536].End(3).Row
    For a = 2 To x
    Sheets("Veri").Range("I" & a) = a - 1
    Next a
Next altına yapıştır.
Genişletmek için tıkla ...

Cok tesekkurler ustat, sira numarasi gayer iyi ama , verilerim olan sayfa kayitlar bossatirdan baslamasi da lazim veriyi silip yenisini ekliyor ve assagidaki formul tam duzgun calismiyor sanirim ek olarak
Sheets("Veri").Cells(k, "g") = IIf(Sheets("Veri").Cells(k - 1, "g") = "A", "B", "A")
 
canburak' Alıntı:
Sheets("Veri").Cells(k, "g") = IIf(Sheets("Veri").Cells(k - 1, "g") = "A", "B", "A")
Genişletmek için tıkla ...

Sheets("Veri").Cells(k, "g") ="A" bu şekil yap, verileri silip yeniden yazması ne zararı var anlamadım, boş satır derken sıra numarası için mı dedin evet ise sıra no I sutününda başlasın diye sen yazdın. ? Ben resime göre yaptım istediğini
 
Greenblacksea53' Alıntı:
Sheets("Veri").Cells(k, "g") ="A" bu şekil yap, verileri silip yeniden yazması ne zararı var anlamadım, boş satır derken sıra numarası için mı dedin evet ise sıra no I sutününda başlasın diye sen yazdın. ? Ben resime göre yaptım istediğini
Genişletmek için tıkla ...
Yok ustat sira numarasi icin degil genel veri kaydi icin demistim ,sira numarasinda sorun yok o dogru gidiyor eski kayitlarin kalmasi lazim ki her gun girilen kayitlarin devam etmesi lazim bugun 10 giris varsa veri sayfasinda duracak yarin baska girislerde enson girisden sonra yani 11 den sonra devam etmesi gerekiyor ki toplam odemelerin raporunu ala bileyim,
 
Greenblacksea53' Alıntı:
Sheets("Veri").Cells(k, "g") ="A" bu şekil yap, verileri silip yeniden yazması ne zararı var anlamadım, boş satır derken sıra numarası için mı dedin evet ise sıra no I sutününda başlasın diye sen yazdın. ? Ben resime göre yaptım istediğini
Genişletmek için tıkla ...

Hocam alttaki resimdede gostermeye calistigim gibi her yeni kayit son bos satirdan baslamasi lazim ikinci olarakda formulu degistirdim ama 1 ve 9 cu sira numarasindaki Alacaktaki sayilarin yanina A getirmedigi icin duzgun siralamiyor

236923
 
hamitcan' Alıntı:
Böyle dener misiniz ?
Kod: 
Private Sub CommandButton1_Click()
Sheets("Veri").[a2:g500].Clear
    x = Sheets("Fis girisi").[a65536].End(3).Row
    k = 1
    For i = 6 To x
    k = k + 1
    a = a + 1
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, 1) = a
    k = k + 1
    Sheets("Veri").Cells(k, 1) = a
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, "c") = "KASA HESABI"
    If Sheets("Veri").Cells(k - 1, "e") > 0 Then
    Sheets("Veri").Cells(k, "f") = Sheets("Veri").Cells(k - 1, "e")
    Sheets("Veri").Cells(k, "e") = ""
    Else
    Sheets("Veri").Cells(k, "e") = Sheets("Veri").Cells(k - 1, "f")
    Sheets("Veri").Cells(k, "f") = ""
    End If
    Sheets("Veri").Cells(k, "g") = IIf(Sheets("Veri").Cells(k - 1, "g") = "A", "B", "A")
    Next
    Sheets("Veri").[a2:g500].Sort key1:=Sheets("Veri").[a2], Order1:=xlAscending, key2:=Sheets("Veri").[g2], Order2:=xlDescending
End Sub
Genişletmek için tıkla ...

Hocam Borc - alacak seklinde siralama haric digerlerini cozdum su sekilde ;

x = Sheets("Fis girisi").[a65536].End(3).Row

VeriSonSatir = WorksheetFunction.CountA(Worksheets("Veri").Range("A:A"))
Max = Application.WorksheetFunction.Max(Sheets("Veri").Range("A:A"), 1)

k = VeriSonSatir
a = Max

For i = 6 To x

k = k + 1
a = a + 1
 
hamitcan' Alıntı:
Böyle dener misiniz ?
Kod: 
Private Sub CommandButton1_Click()
Sheets("Veri").[a2:g500].Clear
    x = Sheets("Fis girisi").[a65536].End(3).Row
    k = 1
    For i = 6 To x
    k = k + 1
    a = a + 1
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, 1) = a
    k = k + 1
    Sheets("Veri").Cells(k, 1) = a
    Sheets("Veri").Range("b" & k & ":" & "g" & k) = Sheets("Fis girisi").Range("a" & i & ":" & "f" & i).Value
    Sheets("Veri").Cells(k, "c") = "KASA HESABI"
    If Sheets("Veri").Cells(k - 1, "e") > 0 Then
    Sheets("Veri").Cells(k, "f") = Sheets("Veri").Cells(k - 1, "e")
    Sheets("Veri").Cells(k, "e") = ""
    Else
    Sheets("Veri").Cells(k, "e") = Sheets("Veri").Cells(k - 1, "f")
    Sheets("Veri").Cells(k, "f") = ""
    End If
    Sheets("Veri").Cells(k, "g") = IIf(Sheets("Veri").Cells(k - 1, "g") = "A", "B", "A")
    Next
    Sheets("Veri").[a2:g500].Sort key1:=Sheets("Veri").[a2], Order1:=xlAscending, key2:=Sheets("Veri").[g2], Order2:=xlDescending
End Sub
Genişletmek için tıkla ...

Merhaba hamitcan bey Yukarida yapmis oldugunuz makroyu ek olarak ekteki dosya iki kosullu veriyi nasil getire biliriz ?
Data Sayfasinda ki P sutunu eger bos ise bos olan hucreleri
Kart sayfasindaki Ana("W" sutunu) ve Alt Hesap("X" Sutunu) Sutunlaridaki bilgiler data sayfasinda D ve E Sutun ile ayni ise Kart Sayfasindaki "U" sutunundaki kod verilerinin veri sayfasindaki "P" sununundaki bos hucrelere eslesenleri getirmesi lazim.

Simdiden yardimlariniz icin tesekkurler.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst