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

ali1981

Yeni Üye
Katılım
25 Mar 2019
Mesajlar
2
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
37
Konum
Çivril/Denizli
Ad Soyad
Ali Berberoğlu
#1
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

Asri

Geliştirici
Katılım
19 Eyl 2018
Mesajlar
37
En İyi Yanıtlar
3
Beğeniler
9
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
#2
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

ali1981

Yeni Üye
Katılım
25 Mar 2019
Mesajlar
2
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
37
Konum
Çivril/Denizli
Ad Soyad
Ali Berberoğlu
#3
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
37
En İyi Yanıtlar
3
Beğeniler
9
Puanları
8
Konum
İstanbul
Web sitesi
www.asriakdeniz.com
Ad Soyad
Asri Akdeniz
#4
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

Üst Alt