Çözüldü Sayfayi korumaya aldigimda macro calismiyor

mtecimer · 23 Eyl 2020

Merhaba,
Asagida ki macro yu calistirmak istedigimde sayfa korumali oldugundan hata aliyorum. Sayfa korumasini kaldirip macro calistirip geri kapatma ile ilgili yardimci olabilirmisiniz ?

Sub fatura()

Rows("20:24").AutoFit

Dim DateiName As String

Desktop = Environ("username")
yol = "K:\Fatura\"

DateiName = Range("O12") & (".pdf")

dosya_adi = yol & DateiName

ActiveSheet.Range("b2:k65").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosya_adi

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem

.To = Range("o13")
.cc = Range("o9")
.Subject = Range("o14")
.Body = Range("o15")
myAttachments.Add dosya_adi
.Display

End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing

'Sheets("FT").Range("A" & x).Value = Sheets("Rechnung").Range("I9").Value

satir = Tabelle3.Cells(Tabelle3.Rows.Count, 1).End(3).Row + 1
vsutun = Array(9, 9, 9, 3, 9, 9, 9)
vsatir = Array(9, 8, 12, 8, 44, 45, 47)
For i = 0 To 6
Tabelle3.Cells(satir, i + 1) = Tabelle2.Cells(vsatir(i), vsutun(i))
Next i
veri = CSng(Split(Tabelle2.Cells(9, "i"), "-")(1) + 1)
If Len(veri) = 1 Then deger = "00": If Len(veri) = 2 Then deger = "0": If Len(veri) = 3 Then deger = ""
Tabelle2.Cells(9, "i") = Year(Date) & "-" & deger & veri
MsgBox "Fatura Kesilmistir. Islemler Saldenlist tablosuna aktarilmistir."

Sheets("Rechnung").Range("C22:H42").ClearContents
Sheets("Rechnung").Range("E17:J18").ClearContents

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 12 And Target.Row = 12 Then
For i = 2 To Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(3).Row
If Tabelle1.Cells(i, 2) = Tabelle2.Cells(12, "L") Then
Tabelle2.Cells(8, "c") = Tabelle1.Cells(i, 2)
Tabelle2.Cells(9, "c") = Tabelle1.Cells(i, 3) & " " & Tabelle1.Cells(i, "d")
Tabelle2.Cells(10, "c") = Tabelle1.Cells(i, "e")
Tabelle2.Cells(11, "c") = Tabelle1.Cells(i, "f") & " " & Tabelle1.Cells(i, "g")
Tabelle2.Cells(17, "e") = Tabelle1.Cells(i, "l")
Tabelle2.Cells(18, "e") = Tabelle1.Cells(i, "m")
Tabelle2.Cells(22, "c") = Tabelle1.Cells(i, "o")
Tabelle2.Cells(22, "f") = Tabelle1.Cells(i, "p")
Tabelle2.Cells(22, "g") = Tabelle1.Cells(i, "q")
Tabelle2.Cells(22, "h") = Tabelle1.Cells(i, "r")
Tabelle2.Cells(23, "c") = Tabelle1.Cells(i, "t")
Tabelle2.Cells(23, "f") = Tabelle1.Cells(i, "u")
Tabelle2.Cells(23, "g") = Tabelle1.Cells(i, "v")
Tabelle2.Cells(23, "h") = Tabelle1.Cells(i, "w")
Tabelle2.Cells(24, "c") = Tabelle1.Cells(i, "y")
Tabelle2.Cells(24, "f") = Tabelle1.Cells(i, "z")
Tabelle2.Cells(24, "g") = Tabelle1.Cells(i, "aa")
Tabelle2.Cells(24, "h") = Tabelle1.Cells(i, "ab")
Tabelle2.Cells(25, "c") = Tabelle1.Cells(i, "ad")
Tabelle2.Cells(25, "f") = Tabelle1.Cells(i, "ae")
Tabelle2.Cells(25, "g") = Tabelle1.Cells(i, "af")
Tabelle2.Cells(25, "h") = Tabelle1.Cells(i, "ag")
Tabelle2.Cells(26, "c") = Tabelle1.Cells(i, "ai")
Tabelle2.Cells(26, "f") = Tabelle1.Cells(i, "aj")
Tabelle2.Cells(26, "g") = Tabelle1.Cells(i, "ak")
Tabelle2.Cells(26, "h") = Tabelle1.Cells(i, "al")
Tabelle2.Cells(27, "c") = Tabelle1.Cells(i, "an")
Tabelle2.Cells(27, "f") = Tabelle1.Cells(i, "ao")
Tabelle2.Cells(27, "g") = Tabelle1.Cells(i, "ap")
Tabelle2.Cells(27, "h") = Tabelle1.Cells(i, "aq")
Tabelle2.Cells(28, "c") = Tabelle1.Cells(i, "as")
Tabelle2.Cells(28, "f") = Tabelle1.Cells(i, "at")
Tabelle2.Cells(28, "g") = Tabelle1.Cells(i, "au")
Tabelle2.Cells(28, "h") = Tabelle1.Cells(i, "av")
Tabelle2.Cells(29, "c") = Tabelle1.Cells(i, "ax")
Tabelle2.Cells(29, "f") = Tabelle1.Cells(i, "ay")
Tabelle2.Cells(29, "g") = Tabelle1.Cells(i, "az")
Tabelle2.Cells(29, "h") = Tabelle1.Cells(i, "ba")
Tabelle2.Cells(30, "c") = Tabelle1.Cells(i, "bc")
Tabelle2.Cells(30, "f") = Tabelle1.Cells(i, "bd")
Tabelle2.Cells(30, "g") = Tabelle1.Cells(i, "be")
Tabelle2.Cells(30, "h") = Tabelle1.Cells(i, "bf")
Tabelle2.Cells(31, "c") = Tabelle1.Cells(i, "bh")
Tabelle2.Cells(31, "f") = Tabelle1.Cells(i, "bi")
Tabelle2.Cells(31, "g") = Tabelle1.Cells(i, "bj")
Tabelle2.Cells(31, "h") = Tabelle1.Cells(i, "bk")
Tabelle2.Cells(32, "c") = Tabelle1.Cells(i, "bm")
Tabelle2.Cells(32, "f") = Tabelle1.Cells(i, "bn")
Tabelle2.Cells(32, "g") = Tabelle1.Cells(i, "bo")
Tabelle2.Cells(32, "h") = Tabelle1.Cells(i, "bp")
Tabelle2.Cells(33, "c") = Tabelle1.Cells(i, "br")
Tabelle2.Cells(33, "f") = Tabelle1.Cells(i, "bs")
Tabelle2.Cells(33, "g") = Tabelle1.Cells(i, "bt")
Tabelle2.Cells(33, "h") = Tabelle1.Cells(i, "bu")
Tabelle2.Cells(34, "c") = Tabelle1.Cells(i, "bw")
Tabelle2.Cells(34, "f") = Tabelle1.Cells(i, "bx")
Tabelle2.Cells(34, "g") = Tabelle1.Cells(i, "by")
Tabelle2.Cells(34, "h") = Tabelle1.Cells(i, "bz")
Tabelle2.Cells(35, "c") = Tabelle1.Cells(i, "cb")
Tabelle2.Cells(35, "f") = Tabelle1.Cells(i, "cc")
Tabelle2.Cells(35, "g") = Tabelle1.Cells(i, "cd")
Tabelle2.Cells(35, "h") = Tabelle1.Cells(i, "ce")
Tabelle2.Cells(36, "c") = Tabelle1.Cells(i, "cg")
Tabelle2.Cells(36, "f") = Tabelle1.Cells(i, "ch")
Tabelle2.Cells(36, "g") = Tabelle1.Cells(i, "ci")
Tabelle2.Cells(36, "h") = Tabelle1.Cells(i, "cj")
Tabelle2.Cells(37, "c") = Tabelle1.Cells(i, "cl")
Tabelle2.Cells(37, "f") = Tabelle1.Cells(i, "cm")
Tabelle2.Cells(37, "g") = Tabelle1.Cells(i, "cn")
Tabelle2.Cells(37, "h") = Tabelle1.Cells(i, "co")
Tabelle2.Cells(38, "c") = Tabelle1.Cells(i, "cq")
Tabelle2.Cells(38, "f") = Tabelle1.Cells(i, "cr")
Tabelle2.Cells(38, "g") = Tabelle1.Cells(i, "cs")
Tabelle2.Cells(38, "h") = Tabelle1.Cells(i, "ct")
Tabelle2.Cells(39, "c") = Tabelle1.Cells(i, "cv")
Tabelle2.Cells(39, "f") = Tabelle1.Cells(i, "cw")
Tabelle2.Cells(39, "g") = Tabelle1.Cells(i, "cx")
Tabelle2.Cells(39, "h") = Tabelle1.Cells(i, "cy")
Tabelle2.Cells(40, "c") = Tabelle1.Cells(i, "da")
Tabelle2.Cells(40, "f") = Tabelle1.Cells(i, "db")
Tabelle2.Cells(40, "g") = Tabelle1.Cells(i, "dc")
Tabelle2.Cells(40, "h") = Tabelle1.Cells(i, "dd")
Tabelle2.Cells(41, "c") = Tabelle1.Cells(i, "df")
Tabelle2.Cells(41, "f") = Tabelle1.Cells(i, "dg")
Tabelle2.Cells(41, "g") = Tabelle1.Cells(i, "dh")
Tabelle2.Cells(41, "h") = Tabelle1.Cells(i, "di")
Tabelle2.Cells(42, "c") = Tabelle1.Cells(i, "dk")
Tabelle2.Cells(42, "f") = Tabelle1.Cells(i, "dl")
Tabelle2.Cells(42, "g") = Tabelle1.Cells(i, "dm")
Tabelle2.Cells(42, "h") = Tabelle1.Cells(i, "dn")

Tabelle2.Cells(10, "I") = Tabelle1.Cells(i, "I")
Sheets("Rechnung").Range("I8").Value = Now()
End If
Next i
End If

End Sub

Feyzullah · 23 Eyl 2020

Merhaba,
Kodlarınızın başına ActiveSheet.Unprotect "1" 'Sayfa Koruma Şifresini çift tırnak içerisine yazını
'''KODLARINIZ"""''
Kodların sonuna ActiveSheet.Protect "1" 'Sayfa Koruma Şifresini çift tırnak içerisine yazınız yazınız.

mtecimer · 24 Eyl 2020

Hocam öncelikle yardimlariniz icin tesekkür ederim.
Yazmis oldugunuz kod
- Sub fatura() ile baslayan macromuz bir combax a bagli ve kodlar sorunsuz calisiyor fakat
- Private Sub Worksheet_Change(ByVal Target As Range) ile baslayan macromuz bir veri dogrulama listesine bagli yazmis oldugunuz kodlari buna ekledigimde kabul etmedi ?

Feyzullah · 24 Eyl 2020

if ve end if kodları arasına alarak deneyin.

cakarem · 24 Eyl 2020

Örnek dosya yükleyip hatayı da paylaşırsanız daha hızlı çözüme ulaşırsınız.

mtecimer · 24 Eyl 2020

Bu sekilde yaptim fakat calismadi ? Yanlis birsey yapiyorum sanirim ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 12 And Target.Row = 12 Then

ActiveSheet.Unprotect "1"

For i = 2 To Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(3).Row
If Tabelle1.Cells(i, 2) = Tabelle2.Cells(12, "L") Then
Tabelle2.Cells(8, "c") = Tabelle1.Cells(i, 2)
Tabelle2.Cells(9, "c") = Tabelle1.Cells(i, 3) & " " & Tabelle1.Cells(i, "d")
Tabelle2.Cells(10, "c") = Tabelle1.Cells(i, "e")
Tabelle2.Cells(11, "c") = Tabelle1.Cells(i, "f") & " " & Tabelle1.Cells(i, "g")
Tabelle2.Cells(10, "I") = Tabelle1.Cells(i, "I")
Sheets("Rechnung").Range("I8").Value = Now()

ActiveSheet.Protect "1"

End If

Next i
End If

End Sub

Feyzullah · 24 Eyl 2020

Altdaki kodu en anlattaki end if kodunun üstüne yazın

mtecimer · 24 Eyl 2020

Yazdim fakat sayfa koruma hatasi aliyorum. Dosyayi ekledim size zahmet bir ilgilenebilirmisiniz.

Rechnungen sayfasinda bulunan L16 hücresi formulle baglanti kurmustum (degiskenler H45, I45, C58 Hücrelere bilgi getiriyor) korumaya aldigimda bunlar da calismiyor. onada bi göz atabilirseniz sevinirim.

Ömer BARAN · 24 Eyl 2020

Merhaba Sayın @mtecimer .

Kodların son halinde bir sıkıntı yok (Outlook kullanmadığımdan o kısmı kontrol etmedim).

Yapmanız gereken (1 kez yapacaksınız) sadece; sayfa korumasını elle kaldırdıktan sonra
L16 hücresine fareyle sağ tıkla >> "Hücreleri Biçimlendir" >> "Koruma" kulakçığı >> "Kilitli" kısmındaki onay kutusunu temizleyip,
sayfa korumasını elle tekrar uygulamak gibi görünüyor.

.

mtecimer · 24 Eyl 2020

Tesekkür ederim hocam gözümün önünde ki hatami fark edemedim.

Çözüldü Sayfayi korumaya aldigimda macro calismiyor

mtecimer

Normal Üye

Feyzullah

Forum Yöneticisi

mtecimer

Normal Üye

Feyzullah

Forum Yöneticisi

cakarem

Forum Yöneticisi

mtecimer

Normal Üye

Feyzullah

Forum Yöneticisi

mtecimer

Normal Üye

Ekli dosyalar

Ömer BARAN

Forum Kurucusu

mtecimer

Normal Üye

Gizliliğinize önem veriyoruz,