bekleyen sipariş

[Orion1]

teşekür ederim

Rica ederim.

 

[piyers]

yaptığımız bu dosyadaki sayfayı koru yaptığımız zaman neden makro hatası veriyor.bu makroların çalışması için sayfa koruması koyamıyormuyuz.
bu konuda bilgi verirseniz sevinirim.

saygılar

 

[Orion1]

yaptığımız bu dosyadaki sayfayı koru yaptığımız zaman neden makro hatası veriyor.bu makroların çalışması için sayfa koruması koyamıyormuyuz.
bu konuda bilgi verirseniz sevinirim.

saygılar

Sayfa koruması koyduğunuzda program hata verir.Çünkü sayfaya veri ekliyor.
Dolayısı ile hata verir .Ama kodlarda düzenleme yaparak kodların hata vermeden çalışmasını sağlamak ve sayfaya koruma yapmak mümkün.Birde tabi hangi sayfalara koruma yapılacağının ve varsa şifresinin bilinmesi gerek.

 

[piyers]

üretim imalat programı lağzım basit irşey olmalı
forumda aradım ama çok karışık olanlar var

 

[Orion1]

evren arkadaş
bana güzel bir excell sayfası olarak
üretim imalat programı lağzım basit irşey olmalı
forumda aradım ama çok karışık olanlar var
bildiğiz bir excel dosyası varsa ve gönderirseniz sevinirim.
size zahmet olacak

Bende böyle bir program yok.Siteyi aratınız.

 

[piyers]

evren gizlen
bana verdiğin cevaplar için sana çok teşekür ederim

ben forumda bana gönderdiğin makrolu dosya için sayfa koruması koymak istiyorum
birde sipariş formu sayfasındaki numara bolumune otomatik ger güncellediğimde sayfadaki bilgileri otomatik numara vermesi mum kunmu

bu sayfalar makrolu koruma koymak istediğim
sayfa isimleri

tarihler
bekleyen siparişler
sipariş formu
makina 1
makina 2

ve şifreleri mrm

bana bu konudada yardımcı olursanız sevinirim.
sizide fazla meşgül ettim başınızı ağrıttığımıda biliyorum.
idare edin işte.

saygılarımla

 

[Orion1]

Sayfa Koruma işlemi tamamdır.Şifre mrm
Eğer şifreyi elle değiştiriseniz program hata verecektir.
O zaman programdaki ilgili statırlarıda değiştirmeniz gerekir.
İyi çalışmalar.

 

[piyers]

teşekkür ederim
fazla oluyorum ama
otomatik nu marada verebiliyormuyuz sipariş formundaki no yazan yere
olursa süper olur
herşey için teşekkürler

 

[Orion1]

teşekkür ederim
fazla oluyorum ama
otomatik nu marada verebiliyormuyuz sipariş formundaki no yazan yere
olursa süper olur
herşey için teşekkürler

aşağıdaki kodlarda kırmızı ile belirttiğim satırı alttaki satırla değiştiriniz.

Range("E6").Value = Range("E6").Value + 1

Sub makina_aktar()
Dim sat As Long
Sheets("SİPARİŞ FORMU").Select
Set s2 = Sheets("BEKLEYEN SİPARİŞLER")
ActiveSheet.Unprotect "mrm"
s2.Unprotect "mrm"
sat = s2.Cells(65536, "B").End(xlUp).Row + 1
If sat > 65533 Then
    MsgBox "BEKLEYEN SİPARİŞLER SAYFASI Satırları doldu.." & vbLf & _
    "Başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
    s2.Protect "mrm"
    ActiveSheet.Protect "mrm"
    Set s2 = Nothing
    Exit Sub
End If
    If Cells(10, "C").Value = "" Then
        MsgBox "Firma adı boş olamaz..!!" & _
        vbLf & " Veriler kayıt edilmedi..!!", vbCritical, "DİKKAT"
        Range("C10").Select
        s2.Protect "mrm"
        ActiveSheet.Protect "mrm"
        Set s2 = Nothing
        Exit Sub
    End If
    s2.Cells(sat, "B").Value = Cells(10, "C").Value
    s2.Cells(sat, "C").Value = Cells(12, "C").Value
    s2.Cells(sat, "D").Value = Cells(18, "C").Value
    s2.Cells(sat, "E").Value = Cells(20, "C").Value
    s2.Cells(sat, "F").Value = Cells(22, "C").Value
    s2.Cells(sat, "G").Value = Cells(24, "C").Value
    s2.Cells(sat, "H").Value = Cells(26, "C").Value
    Range(Cells(8, "C"), Cells(30, "C")) = Empty
    Range(Cells(36, "D"), Cells(43, "D")) = Empty
    [COLOR="Red"][B]Range("A1").Value = Range("A1").Value + 1[/B][/COLOR]
    MsgBox "Kayıt Girildi..!!", vbOKOnly + vbInformation, Application.UserName
    s2.Protect "mrm"
    ActiveSheet.Protect "mrm"

Set s2 = Nothing
End Sub

 

[piyers]

evren arkadaşım
verdiğin bilgiler ve yardımın için çok teşekkür ederim.

ellerine sağlık dosya çok güzel tam istediğimiz gibi oldu

size iyi günler dilerim

saygılarımla

 

[Orion1]

evren arkadaşım
verdiğin bilgiler ve yardımın için çok teşekkür ederim.

ellerine sağlık dosya çok güzel tam istediğimiz gibi oldu

size iyi günler dilerim

saygılarımla

Rica ederim.
Saygılar benden.
iyi çalışmalar.