• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Sabit sütundaki verileri diğer sutunlara kaydetme

ali1981

Yeni Üye
Katılım
25 Mar 2019
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
42
Konum
Çivril/Denizli
Ad Soyad
Ali Berberoğlu
arkadaşlar ekte de yazdığım gibi benim cari ve stok takip programı yapmaya çalışıyorum sabit hücrelere firma bilgisi fiyat ürün kg vb. bilgileri girip kaydet tuşuna bastığımda bunlara aşağıda tablodaki kendisine denk gelen boş satırdaki yere otomatik atmasını istiyorum yardımcı olurmusunuz. daha sonra tekrar temizlenmesini yeni giriş içi boş olmasını nasıl yaparız
 

Ekli dosyalar

  • CARİ TAKİP.xlsm
    288.2 KB · Görüntüleme: 3

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
38
En iyi yanıt
0
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
Office Vers.
Office 2016 EN
Aşağıdaki şekilde işlemleri yapabilirsiniz.
Satış ve tümü için kodlar yazıldı.
İhracat ve Tahsilat içinde örneklere göre yaparsınız.

Kod:
Sub cari_kaydet()
 satir = Cells(Rows.Count, "B").End(3).Row + 1
 If ActiveSheet.Shapes("satisbtn").OLEFormat.Object.Value = 1 Then
    Cells(satir, "B").Value = "Satış"
    Cells(satir, "C").Value = Range("D3").Value
    Cells(satir, "D").Value = Range("D4").Value
    Cells(satir, "E").Value = Range("E4").Value
    Cells(satir, "F").Value = Range("D5").Value
    Cells(satir, "H").Value = Range("D6").Value
    Cells(satir, "I").Value = Range("D7").Value
    Cells(satir, "J").Value = Range("D8").Value
    Cells(satir, "K").Value = Range("D9").Value
    Cells(satir, "S").Value = Range("D15").Value
    Cells(satir, "T").Value = Range("D16").Value
    Cells(satir, "U").Value = Range("D17").Value
    Cells(satir, "V").Value = Range("D18").Value
 End If
 
 If ActiveSheet.Shapes("ihracatbtn").OLEFormat.Object.Value = 1 Then
    'Cells(satir, "B").Value = "İhracat"
  
 End If
 
 If ActiveSheet.Shapes("tahsilatbtn").OLEFormat.Object.Value = 1 Then
    'Cells(satir, "B").Value = "Tahsilat"
  
 End If
 
 If ActiveSheet.Shapes("tumubtn").OLEFormat.Object.Value = 1 Then
    Cells(satir, "B").Value = "Tümü"
    Cells(satir, "C").Value = Range("D3").Value
    Cells(satir, "D").Value = Range("D4").Value
    Cells(satir, "E").Value = Range("E4").Value
    Cells(satir, "F").Value = Range("D5").Value
    Cells(satir, "H").Value = Range("D6").Value
    Cells(satir, "I").Value = Range("D7").Value
    Cells(satir, "J").Value = Range("D8").Value
    Cells(satir, "K").Value = Range("D9").Value
    Cells(satir, "M").Value = Range("D10").Value
    Cells(satir, "O").Value = Range("D11").Value
    Cells(satir, "P").Value = Range("D12").Value
    Cells(satir, "Q").Value = Range("D13").Value
    Cells(satir, "R").Value = Range("D14").Value
    Cells(satir, "S").Value = Range("D15").Value
    Cells(satir, "T").Value = Range("D16").Value
    Cells(satir, "U").Value = Range("D17").Value
    Cells(satir, "V").Value = Range("D18").Value
 End If

 Range("L" & satir).FormulaR1C1 = "=((RC[-3]*RC[-2])*RC[-1]/100)+(RC[-3]*RC[-2])"
 Range("N" & satir).FormulaR1C1 = "=RC[-5]*RC[-1]"
 
End Sub
 

Ekli dosyalar

  • CARİ TAKİP.xlsm
    260.6 KB · Görüntüleme: 6

ali1981

Yeni Üye
Katılım
25 Mar 2019
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
42
Konum
Çivril/Denizli
Ad Soyad
Ali Berberoğlu
Asri hocam çok sağolun çok güzel olmuş. hocam birde kaydet tuşuna bastığımız zaman giriş verilerini otomatik temizlese olurmu. böyle bir şey varmı.
Asri hocam size son bir şey daha soracağım benim firma rehberinde 100 den fazla firma var firma hücresinde firma isminin bir kaç kelimesi girilince ona uyan tanımlar gelse böyle bir şey mümkünmü
 

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
38
En iyi yanıt
0
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
Office Vers.
Office 2016 EN
Asri hocam çok sağolun çok güzel olmuş. hocam birde kaydet tuşuna bastığımız zaman giriş verilerini otomatik temizlese olurmu. böyle bir şey varmı.
Asri hocam size son bir şey daha soracağım benim firma rehberinde 100 den fazla firma var firma hücresinde firma isminin bir kaç kelimesi girilince ona uyan tanımlar gelse böyle bir şey mümkünmü

Kayıt sonrası temizleme eklendi.
Firma hızlı bulma ayrı bir konu o eklenmedi.
 

Ekli dosyalar

  • CARİ TAKİP.xlsm
    261.9 KB · Görüntüleme: 7
Üst Alt