• DİKKAT

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

Doğrudan Temin

Cevabımdaki en son yöntemi yapmalısınız.
 
Korhan Ayhan kardeşim sagolasin. Maalasef yapamadım. Yinede bilgiler için teşekkür ederim
 
Şu şekilde yapacaksınız...

C++: 
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
 
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...
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
Şu şekilde yapacaksınız...

C++: 
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
Genişletmek için tıkla ...
 
Ü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
 
Korhan Ayhan' Alıntı:
Şu şekilde yapacaksınız...

C++: 
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
Genişletmek için tıkla ...
 
Hangi belgeden bahsediyorsunuz?
 
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
 
Sayfa koruması için şifre kullandınız mı?
 
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
 
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.

C++: 
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
 
TEŞEKKÜRLER ELLERİNİZE SAĞLIK
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst