Doğrudan Temin

[Korhan Ayhan]

Cevabımdaki en son yöntemi yapmalısınız.

 

[yuzun23]

Korhan Ayhan kardeşim sagolasin. Maalasef yapamadım. Yinede bilgiler için teşekkür ederim

 

[Korhan Ayhan]

Şu şekilde yapacaksınız...

Sub Makronuz()
Sheets("Sayfa_Adını_Yazınız").Unprotect "Varsa Koruma Şifrenizi Buraya Yazınız."

Makro kodlarınız...
Makro kodlarınız...
Makro kodlarınız...

Sheets("Sayfa_Adını_Yazınız").Protect "Varsa Koruma Şifrenizi Buraya Yazınız."
End Sub

 

[suatbayhan]

Merhaba yuzun23 bey.
Ben de bir Doğrudan Temin Dosyası hazırlamıştım. Basit bir şekilde hazırlanmış. Eğer işinizi görürse kullanabilirsiniz.
(Genel olarak sarı renkli alanlara veri girişi yapılır.)
Selamlar...

 

[yuzun23]

Şu şekilde yapacaksınız...

Sub Makronuz()
Sheets("Sayfa_Adını_Yazınız").Unprotect "Varsa Koruma Şifrenizi Buraya Yazınız."

Makro kodlarınız...
Makro kodlarınız...
Makro kodlarınız...

Sheets("Sayfa_Adını_Yazınız").Protect "Varsa Koruma Şifrenizi Buraya Yazınız."
End Sub

TEŞEKKÜR EDİYORUM ELLERİNİZE SAĞLIK

 

[yuzun23]

KARDEŞİM ELLERİNİZE SAĞLIK

 

[yuzun23]

BECEREMEDİM.

 

[yuzun23]

Üstadlarım, sayfa koruma şifresi verdiğimde macro devre dışı kalıyor. Korhan Ayhan yol göstermesine rağmen beceremedim. Yardımlarınızı bekliyorum. Allah'a amanet olun

 

[yuzun23]

Şu şekilde yapacaksınız...

Sub Makronuz()
Sheets("Sayfa_Adını_Yazınız").Unprotect "Varsa Koruma Şifrenizi Buraya Yazınız."

Makro kodlarınız...
Makro kodlarınız...
Makro kodlarınız...

Sheets("Sayfa_Adını_Yazınız").Protect "Varsa Koruma Şifrenizi Buraya Yazınız."
End Sub


Ekteki belgedeki "tutanak" taki macroya Yukarıdaki yazmış olduğunuz macroyu ekleme yapamadım lütfen, yardımcı olurmusunuz

 

[Korhan Ayhan]

Hangi belgeden bahsediyorsunuz?

 

[yuzun23]

16 sıradaki, uznamameli, yardımı ile tutanak sekmesine macro ile yardımcı oldu Allah razı olsun. Sorunsuz çalışıyor. Ama, "tutanak" sayfasını koruma ile sayfa koru olarak yaptığım zaman hata veriyor. Yani kısacası sayfadaki şifreler bozulması diye sayfa koru dediğim zama mcro olmuyor. 16 sıradaki belge teşekkürler ilginiz için

 

[Korhan Ayhan]

Sayfa koruması için şifre kullandınız mı?

 

[yuzun23]

Hayır sadace sayfa koru
Sayfa korumaya kaldır dediğimde şifre de istemesin amaç, sayfa içindeki formüller korunsun bozulmasın rastgele şifre de verebilirsiniz sıkıntı yok

 

[Korhan Ayhan]

Bu kodu deneyebilirsiniz.

Nasıl yapacağım derseniz. Eski Sub SatinAlma() ile başlayan kod bloğunu komple silip yerine benim verdiğimi ekleceksiniz.

Sanırım bu işlemi yapabilirsiniz.

Sub SatinAlma()
Application.ScreenUpdating = False
Sheets("Tutanak").Unprotect
Range("B35:I40").ClearContents
For j = 5 To 10
mlz = "": fyt = 0: ad = 0
    For i = 8 To 32
If KRenk(Cells(i, j)) = 5296274 Then
ad = ad + 1
'mlz = mlz & "," & Cells(i, 2).Text
mlzList = ad & " adet " & mlz
fyt = fyt + Cells(i, 3).Value * Cells(i, j).Value
Cells(35 + j - 5, 2) = mlzList
Cells(35 + j - 5, 3) = Cells(6, j).Text
Cells(35 + j - 5, 9) = fyt
End If
    Next
Next
Sheets("Tutanak").Protect
Application.ScreenUpdating = True
End Sub

 

[yuzun23]

TEŞEKKÜRLER ELLERİNİZE SAĞLIK