• DİKKAT

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

Veri girişinden sonra ekranın temizlenmesi

manisali50' Alıntı:
Arkadaşlar merhaba.
Veri girişinden sonra ekranın temizlenmesi konulu sorum ektedir.
Şimdiden teşekkürler
Genişletmek için tıkla ...
Merhaba

Stok Giriş için modül1 değiştirin
Formüller var.Onlar es geçtim :)
Diğerleri için kırmızı alanı uyarlayabilirsiniz.
Kod: 
 Sub Liste_Aktar()
ss = Sheets("GİRİŞ").[A5000].End(3).Row + 1
With Sheets("GİRİŞ")
    .Cells(ss, 1).Value = ss - 3
    .Cells(ss, 2).Value = Sheets("ANA EKRAN").Cells(4, 3).Value
    .Cells(ss, 3).Value = Sheets("ANA EKRAN").Cells(5, 3).Value
    .Cells(ss, 4).Value = Sheets("ANA EKRAN").Cells(6, 3).Value
    .Cells(ss, 5).Value = Sheets("ANA EKRAN").Cells(7, 3).Value
    .Cells(ss, 6).Value = Sheets("ANA EKRAN").Cells(8, 3).Value
    .Cells(ss, 7).Value = Sheets("ANA EKRAN").Cells(9, 3).Value
    .Cells(ss, 8).Value = Sheets("ANA EKRAN").Cells(10, 3).Value
    .Cells(ss, 9).Value = Sheets("ANA EKRAN").Cells(11, 3).Value
    .Cells(ss, 10).Value = Sheets("ANA EKRAN").Cells(12, 5).Value
    .Cells(ss, 11).Value = Sheets("ANA EKRAN").Cells(12, 3).Value
    .Cells(ss, 12).Value = Sheets("ANA EKRAN").Cells(14, 3).Value
    MsgBox "BU ÜRÜNE AİT STOK GİRİŞİ, MALZEME GİRİŞ VE STOK SAYFALARINA AKTARILDI ", vbInformation, "Şerif Ali ŞENSAZLI"
      .Cells(ss, 13).FormulaR1C1 = "=IF(RC[-6]=0,1&"" ""&REPT(""Z"",7)&"" ""&RC[-6],IF(ISNUMBER(RC[-6]),LEFT(RC[-6])&"" ""&REPT(""Z"",7)&"" ""&RC[-6],1&"" ""&TEXT(RC[-6],""#"")))"
   Sheets("GİRİŞ").Range("B4:M" & ss).Sort Key1:=Sheets("GİRİŞ").Range("M4"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
       End With
[COLOR=Red]Range("C4") = ""
Range("C5") = ""
Range("C6") = ""
Range("C7") = ""
Range("C8") = ""
Range("C9") = ""
Range("C11") = ""
Range("C12") = ""
Range("C14") = ""[/COLOR]
End Sub
 
Black Lord' Alıntı:
Merhaba

Stok Giriş için modül1 değiştirin
Formüller var.Onlar es geçtim :)
Diğerleri için kırmızı alanı uyarlayabilirsiniz.

Arkadaşım inanın ne demek istediğinizi anlayamadım..Yine de verdiğiniz kodları yapıştırdım ama maalesef çalışmıyor.
Genişletmek için tıkla ...
 
manisali50' Alıntı:
Black Lord' Alıntı:
Merhaba

Stok Giriş için modül1 değiştirin
Formüller var.Onlar es geçtim :)
Diğerleri için kırmızı alanı uyarlayabilirsiniz.

Arkadaşım inanın ne demek istediğinizi anlayamadım..Yine de verdiğiniz kodları yapıştırdım ama maalesef çalışmıyor.
Genişletmek için tıkla ...
Merhaba sayın Manisalı50
Modül1 Liste_aktar makrosunun tamamını bununla değiştirn deneyin.
Hata verirse Aktar yapıldıktan sonra silinecek alanrı Renklendirip dosyanızı yeniden ekleyin.
ANA EKRAN STOK GİRİŞ kısmında formüllü alanlarda var!
Ben şimdi tekrar denedim hata vermedi.
Genişletmek için tıkla ...
 
İlgine teşekkürler ama maalesef hiçbir işlev görmüyor.
Yeni malzeme ekleme bölümünde aktarma yapıyor ama girilen bilgiler ekranda duruyor.Daha sonra modül1 liste aktarda .Cells(ss, 1).Value = ss - 3 satırı sarıya boyanır ve ekranı kilitliyor.
Formüllü alanlar zaten stok numarasını silinirse otomatikman onlar da silinir..O hücreleri ayrıca silmeye gerek yok..Silinecek alanlar şöyle :
Stok Girişi : C4-C5-C6-C7-C8-C9-C11-C12-C14
Stok Çıkışı : I4-I5-I6-I7-I8-I9-I11-I12-I14
Yeni Malzeme Ekleme : C18-C19-c20-C21-C22-E20
 
Merhaba
Bende sorun çıkmıyor hatada vermiyor.
 
Son düzenleme:
Tekrar Merhaba
Sorun hala devam ediyormu sonuç nedir.?
 
Şaştım kaldı bu işe arkadaşım..Sizin dosyayı açıyorum çalışıyor..Kodları benim orijinal dosyaya aktarıyorum çalışmıyor..Acaba bugün dosyanın kodlarında yaptığımız değişikliğin yüzünden olabilir mi? Dosyamın son halini az önce "Sıralama sorunu" başlığı altında foruma gönderdim. Oradan inceleyebilirseniz sevinirim. Benim işyerinde internet 12,00 - 13,00 arası açık sadece.. Bu gece uyarlar ve yollarsanız yarın öğle arası bakar,sonucu size bildiririm.. Tekrar tekrar teşekkürler
 
manisali50' Alıntı:
Şaştım kaldı bu işe arkadaşım..Sizin dosyayı açıyorum çalışıyor..Kodları benim orijinal dosyaya aktarıyorum çalışmıyor..Acaba bugün dosyanın kodlarında yaptığımız değişikliğin yüzünden olabilir mi? Dosyamın son halini az önce "Sıralama sorunu" başlığı altında foruma gönderdim. Oradan inceleyebilirseniz sevinirim. Benim işyerinde internet 12,00 - 13,00 arası açık sadece.. Bu gece uyarlar ve yollarsanız yarın öğle arası bakar,sonucu size bildiririm.. Tekrar tekrar teşekkürler
Genişletmek için tıkla ...
O başlıktaki dosya ile bu çok farklı.:cry:
 
benim çalışma da ekteki gibi.

gereksiz iş yükü yaratan mesaj kutularını vb sildim.
 

Ekli dosyalar

Merhaba
Sayın mancubus orjinal dosyayı eklediği için kodları geri alıyorum.
Sayın manisalı50 bu dosya ile ilk mesajınızdaki dosya çok farklı :)
Çözüm yolu bulamamızın sebebi bu sanırım.
Kolay gelsin.
 
Black Lord' Alıntı:
Merhaba
Sayın mancubus orjinal dosyayı eklediği için kodları geri alıyorum.
Sayın manisalı50 bu dosya ile ilk mesajınızdaki dosya çok farklı :)
Çözüm yolu bulamamızın sebebi bu sanırım.
Kolay gelsin.
Genişletmek için tıkla ...

aynı dosya farklı bir sorun için yüklenmişti. ondan galiba. sizin de emeğinize sağlık.
 
Haklısın arkadaşım..
Sıralama sorunu başgösterince kodlarda değişiklik yapmak zorunda kaldık..
Asıl benim için önemli olan sıralama sorunuydu.Ayrıca birkaç ilave daha yapınca dediğiniz gibi biraz karışıklık oldu.. Son hali forumda sıralama sorunu ile ilgili sorumun en son mesajında..Yardımlarınızı bekliyorum
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst