Kayıt Sistemi

[cenkaltunkaya]

Merhaba arkadaşlar.
Ekte 1 excel dosyası var ve bu dosyada 2 sekme var.
CARİ KAYIT ve AKTİF CARİLER

Cari Kayıt sayfasında bilgileri giricem ve kaydet butonuna basıcam, kaydet dedikten sonra Aktif Carilerde en son kayıttan sonraki kısma kayıt yapacak. (Cari No 3171'den başlayacak)

Excel'de ki sıralamaların bozulmaması gerekiyor çünkü bu dosya yaklaşık 10 senedir kullandığımız bir dosya. Ve bu dosyadan veri çeken bir çok başka excel dosyalarımız var. Sırasını kaydırırsak diğer tüm excel dosyalarını baştan hazırlamam gerekir Birde

Yardımcı olursanız sevinirim. Şimdiden hepinize teşekkürler.

 

[Korhan Ayhan]

CARİ KAYIT sayfasında birleştirilmiş hücreleri kullanmanızı tavsiye etmem. Bu şekilde işlemleri yapmakta zorluklar yaşamanız kaçınılmazdır.

Dosyanızı bu şekilde düzenlerseniz daha hızlı yanıt alabilirsiniz.

 

[cenkaltunkaya]

CARİ KAYIT sayfasında birleştirilmiş hücreleri kullanmanızı tavsiye etmem. Bu şekilde işlemleri yapmakta zorluklar yaşamanız kaçınılmazdır.

Dosyanızı bu şekilde düzenlerseniz daha hızlı yanıt alabilirsiniz.

Haklısın düşünemedim hiç. Uyarın için teşekkürler. Dosya düzeltilmiş şekilde ektedir.

 

[cenkaltunkaya]

Arkadaşlar konu ile ilgili yardımcı olmanızı bekliyorum. İşi hafifletmek adına üzerime düşen ne varsa yapmak isterim. Örneğin her hücreye belirli kod girilecekse bana gösterin alt yapıyı ben oluşturayım siz son sihirli dokunuşları yapın

 

[cenkaltunkaya]

Arkadaşlar dosya üzerinde hocalarımızın tavsiyeleri üzerine bir kaç düzeltme yaptım. Bu şekilde daha kolay çözüme ulaşabileceğim söylendi. Dosyayı ekte gönderiyor ve cidden yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Carideki sırasına derken neyi kastediyorsunuz?

2120 nerde?

 

[cenkaltunkaya]

Yani en son cari numarası 3171 ben yeni bir cari kaydet dediğimde 3172 numarasını alacak. Her kaydettiğim cari kayıtlı kalacak silünmeyecek.

2120 ile kayıtlı şu an cari var. Şu an bendeki en son kayıtlı cari 3170. Şimdi kaydedeceğim 3171 olmalı ki mevcutlarla çakışmasın.

Teşekkürler alakan için umarım hallederiz [emoji1374]

 

[Korhan Ayhan]

Formu doldurun, cari kodu yazın ve aşağıdaki kodu çalıştırın.

Option Explicit

Sub Cari_Kaydet()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Cari_No As Integer, Son As Long
    
    Set S1 = Sheets("CARİ KAYIT")
    Set S2 = Sheets("AKTİF CARİLER")
    
    Cari_No = WorksheetFunction.Max(S2.Range("B:B")) + 1
    
    S1.Range("L7") = Cari_No
    
    Son = S2.Cells(S2.Rows.Count, 2).End(3).Row + 1
    
    S2.Cells(Son, 2) = Cari_No
    S2.Cells(Son, "C") = S1.Range("C4")
    S2.Range("N" & Son & ":X" & Son).Value = Application.Transpose(S1.Range("C5:C15").Value)
    S2.Cells(Son, "Z") = S1.Range("F4")
    S2.Cells(Son, "AJ") = S1.Range("F5")
    S2.Cells(Son, "AI") = S1.Range("F6")
    S2.Range("AA" & Son & ":AH" & Son).Value = Application.Transpose(S1.Range("F7:F14").Value)
    S2.Range("BD" & Son & ":BE" & Son).Value = Application.Transpose(S1.Range("F15:F16").Value)
    S2.Range("AP" & Son & ":BB" & Son).Value = Application.Transpose(S1.Range("I4:I16").Value)
    S2.Range("BM" & Son & ":BO" & Son).Value = Application.Transpose(S1.Range("C18:C20").Value)

    S1.Range("C4:C15,C18:C20,F4:F16,I4:I16").ClearContents
    
    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[cenkaltunkaya]

Formu doldurun, cari kodu yazın ve aşağıdaki kodu çalıştırın.

Option Explicit

Sub Cari_Kaydet()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Cari_No As Integer, Son As Long
  
    Set S1 = Sheets("CARİ KAYIT")
    Set S2 = Sheets("AKTİF CARİLER")
  
    Cari_No = S1.Range("L7")
  
    Son = S2.Cells(S2.Rows.Count, 2).End(3).Row + 1
  
    S2.Cells(Son, 2) = Cari_No
    S2.Cells(Son, "C") = S1.Range("C4")
    S2.Range("N" & Son & ":X" & Son) = S1.Range("C5:C15")
    S2.Cells(Son, "Z") = S1.Range("F4")
    S2.Cells(Son, "AJ") = S1.Range("F5")
    S2.Cells(Son, "AI") = S1.Range("F6")
    S2.Range("AA" & Son & ":AH" & Son) = S1.Range("F7:F14")
    S2.Range("BD" & Son & ":BE" & Son) = S1.Range("F15:F16")
    S2.Range("AP" & Son & ":BB" & Son) = S1.Range("I4:I16")
    S2.Range("BM" & Son & ":BO" & Son) = S1.Range("C18:C20")

    S1.Range("C4:C15,C18:C20,F4:F16,I4:I16").ClearContents
  
    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

Korhan hocam öncelikle alakan için çok çok teşekkür ediyorum.
Fakat Cari kodu kendi otomatik alacak elle manuel girmicez.
Ben CARİ KAYIT sayfasında ki bilgileri doldurucam KAYDET dediğimde AKTİF CARİLER'e kaydedecek ve oluşan CARİ KODU, CARİ KAYIT sayfasında ki CARİ NO yazan yerde bana gösterecek. Ben o kısma kodu manuel girmicem. CARİ NO yazan kısmı sen yok say, oraya bilgi filan girmicez. Orası sadece AKTİF CARİLERDE ki son cari kodu bana gösterecek.

Birde ben excel'de kendimce kod yazıp baya bir işimi çözdüm ama bu vermiş olduğun kodu çalıştıracak kapasitede bilgiye sahip değilim. Bunu nasıl çalıştıracağımı tabiri caizse eşşeğe anlatır gibi anlatırsan çok sevinirim Başarabilirsem ne ala bir şey daha öğrenmiş olurum.

 

[Korhan Ayhan]

Üstteki mesajımda ki kodu istediğiniz gibi revize ettim. Son halini kullanabilirsiniz.

Kodu kendi dosyanıza ekleyebilrmeniz için izlemeniz gereken adımlar;

Dosyanızı açın.
ALT+F11 tuşlarına basaarak kod bölümünü açın.
INSERT menüsünden MODULE seçeneğini seçin.
SAĞ tarafta boş beyaz bölüm karşınıza gelecektir.
Önerdiğim kodu bu alana yapıştırın.
Tekrar excel sayfasına dönün.
EKLE menüsünden sayfanıza bir şekil (Dikdörtgen) ekleyin.
Bu şekil üzerinde sağ tıklayın ve MAKRO ATA seçeneğini seçin.
Kayıtlı makroyu seçerek işlemi tamamlayın.
Gerekirse şekle isim verebilirsiniz.

Son olarak dosyanızı MAKRO İÇEREBİLEN DOSYA biçiminde kayıt edin.

Artık şekle tıklayarak kayıt işlemi yapabilirsiniz.

 

[cenkaltunkaya]

Kod hiç bir şekilde çalışmadı hocam. Dosya sizin yönlendirdiğiniz şekilde ekte. İncelemenizi rica ederim.

 

[Korhan Ayhan]

Üstteki mesajımda ki kodu tekrar revize ettim. Yeniden deneyiniz.

Bu sefer olması gerekiyor.

 

[cenkaltunkaya]

İlginiz için teşekkürler hocam. İlk fırsatta deneyip bir olumsuzluk varsa sizi tekrar rahatsız ederim.