listeyi yevmiye fisi seklinde borc alacak olarak kayit etme

C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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

C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
Merhabalar, dahada anlasilir olmasi icin assagidaki resmin solundaki listedeki bilgileri sagindaki tablodaki gibi kayit etmek istiyorum.

236908
 

Ekli dosyalar

H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
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
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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
 
Greenblacksea53

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
572
Excel Vers. ve Dili
Ofis 365 Tr
Altın Üyelik Bitiş Tarihi
05-01-2025
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.
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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")
 
Greenblacksea53

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
572
Excel Vers. ve Dili
Ofis 365 Tr
Altın Üyelik Bitiş Tarihi
05-01-2025
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
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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,
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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
 
C

canburak

Altın Üye
Katılım
30 Kasım 2011
Mesajlar
205
Excel Vers. ve Dili
Ofis 2016 Tr 64 Bit , Turkce
Altın Üyelik Bitiş Tarihi
12-09-2025
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.
Üst