Excell dosyasında hata alıyorum.

[mondschein]

birkaç yıl önce forumdan Mustafa bey yapmıştı. geçen yıl sorunsuz kullınırken bu yıl hata veriyor. bilgisayar değişti ama aynı 2007 office kullanıyorum.
resimdeki gibi hata veriyor. biraz aciliyeti olduğu için yardımcı olursanız sevirim.

https://dosya.co/ksxvhrqy59tl/Not_Kazanım_(3)_-_Kopya.xlsm.html
https://dosya.co/vncflvy7ajhv/Screenshot_1.png.html

 

[Muzaffer Ali]

Merhaba.

Hata veren kod satırı
"Not" adlı sayfanın "J2" hücresinde bulunan veri "Data" adlı sayfanın "E1:E1000" hücre aralığında sayma işlemi yapıyor.
Sizin dosyanızda "J2" hücresi boş olduğundan hata veriyor.

"Not adlo sayfanın kod bölümüünde bulunan

    Range("K2") = Target.Value
    Range("J2") = Target.Offset(0, -1)

bu iki satırı match fonksiyonu içeren ve hata veren satırın üstüne alırsanız hata vermeyecektir.
Yeni kodlar şöyle olacak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("C4:C63")) Is Nothing Then GoTo 10
    If Target = "" Then Exit Sub
    Range("K2") = Target.Value
    Range("J2") = Target.Offset(0, -1)
    Set d = Sheets("Data")
    sat = WorksheetFunction.Match(Range("J2"), d.Range("E1:E1000"), 0)
    If Range("J4") = "" Then GoTo 15
    süt = WorksheetFunction.Match(Range("J4"), d.Range("A2:AJA2"), 0)
    d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)) = d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)).Value
15
    If Range("J4") = "" Then GoTo 10
    sat = WorksheetFunction.Match(Range("J2"), d.Range("E1:E1000"), 0)
    süt = WorksheetFunction.Match(Range("J4"), d.Range("A2:AJA2"), 0)
    Range("Q5:Q104") = Application.Transpose(d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)))
    Range("K5:K104") = "=IF($Q5="""","""",IF($Q5=0,""x"",""""))"
    Range("L5:N104") = "=IF($Q5=COLUMN()-10,""x"","""")"
    Range("K5:N104") = Range("K5:N104").Value
    d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)) = "=OFFSET(Not!$P4,COLUMN(A1),0)"
10
    If Intersect(Target, Range("E4:E13")) Is Nothing Then GoTo 20
    If Target = "" Then Exit Sub
    Set d = Sheets("Data")
    If Range("J2") = "" Or Range("J4") = "" Then GoTo 25
    sat = WorksheetFunction.Match(Range("J2"), d.Range("E1:E1000"), 0)
    süt = WorksheetFunction.Match(Range("J4"), d.Range("A2:AJA2"), 0)
    d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)) = d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)).Value
    d.Range(d.Cells(3, süt), d.Cells(3, süt + 99)) = d.Range(d.Cells(3, süt), d.Cells(3, süt + 99)).Value
25
    Range("J4") = Target.Value
    x = (Target.Row - 3) * 100 - 63
    Range("J5:J104") = Application.Transpose(d.Range(d.Cells(3, x), d.Cells(3, x + 99)))
    sat = WorksheetFunction.Match(Range("J2"), d.Range("E1:E1000"), 0)
    süt = WorksheetFunction.Match(Range("J4"), d.Range("A2:AJA2"), 0)
    Range("Q5:Q104") = Application.Transpose(d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)))
    Range("K5:K104") = "=IF($Q5="""","""",IF($Q5=0,""x"",""""))"
    Range("L5:N104") = "=IF($Q5=COLUMN()-10,""x"","""")"
    Range("K5:N104") = Range("K5:N104").Value
    d.Range(d.Cells(sat, süt), d.Cells(sat, süt + 99)) = "=OFFSET(Not!$P4,COLUMN(A1),0)"
    d.Range(d.Cells(3, süt), d.Cells(3, süt + 99)) = "=IF(OFFSET(Not!$J4,COLUMN(A1),0)="""","""",OFFSET(Not!$J4,COLUMN(A1),0))"
20
    If Intersect(Target, Range("K5:N104")) Is Nothing Then GoTo 30
    If Cells(Target.Row, 10) = "" Then Exit Sub
    If Target = "" Then
    Range("K" & Target.Row & ":N" & Target.Row) = ""
    Target = "x"
    Else
    Target = ""
    End If
30
End Sub

 

[mondschein]

sağolun cevap için excell konusunda bilgim yok. siz duzenleyip paylaşır mısınız

 

[Muzaffer Ali]

Buyurun.

https://dosya.co/33fsq1xxjyac/Not_Kazanım_(3)_-_Kopya_(1).xlsm.html