Çözüldü Makroda basvuru hatası

[seng]

Arkadaşlar herkese merhaba, ekteki makroyu calıstırınca bir sorun olmadan baska bilgisayarda calısırken benım bilgisayarımda basvuru hatası alıyorum degerlerde nedne olabilir? Teşekkür ederim.

 

[Adnan]

Başvuru hatasını nerede alıyorsunuz

 

[seng]

Başvuru hatasını nerede alıyorsunuz

Koordinat sayfasını olustururken basvuru olarak geliyor veriler hocam

 

[Adnan]

modul2 içindeki kodu aşağıdaki ile değiştirip deneyin
Sub V8_Kordinat_olusturma()
'
' V8_Kordinat_olusturma Makro
' kordinatlarİ sİralayaİp boßluklarİ siler
'
' Klavye Kİsayolu: Ctrl+Shift+K
'
Dim son As Long
son = Sayfa6.Cells(Rows.Count, 1).End(xlUp).Row
Sayfa6.Range("A1:B" & son).Copy Sayfa8.Range("A1")
' Sheets("V4").Select
' Columns("A:B").Select
' Range("A1352").Activate
' Selection.Copy
' Sheets("Koordinat").Select
' Range("A1").Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
'' ActiveWindow.SmallScroll Down:=-24
' Columns("A:A").Select
' Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Koordinat").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Koordinat").Sort.SortFields.Add2 Key:=Range("A1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Koordinat").Sort
.SetRange Range("A1:B3000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' ActiveWindow.SmallScroll Down:=1137
' Range("C1140").Select
End Sub

 

[halily]

sorun benim bilgisayarımdan da kaynaklanıyor olabilir ama çalışmanızda 2 tane "buçalışmakitabı" var
yani dosyanızda zaten yapısal bir sorun var gibi.
daha büyük sorun çıkmadan veri ve macrolarınızı başka bir kitaba aktarmanız gerekebilir

 

[seng]

modul2 içindeki kodu aşağıdaki ile değiştirip deneyin
Sub V8_Kordinat_olusturma()
'
' V8_Kordinat_olusturma Makro
' kordinatlarİ sİralayaİp boßluklarİ siler
'
' Klavye Kİsayolu: Ctrl+Shift+K
'
Dim son As Long
son = Sayfa6.Cells(Rows.Count, 1).End(xlUp).Row
Sayfa6.Range("A1:B" & son).Copy Sayfa8.Range("A1")
' Sheets("V4").Select
' Columns("A:B").Select
' Range("A1352").Activate
' Selection.Copy
' Sheets("Koordinat").Select
' Range("A1").Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
'' ActiveWindow.SmallScroll Down:=-24
' Columns("A:A").Select
' Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Koordinat").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Koordinat").Sort.SortFields.Add2 Key:=Range("A1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Koordinat").Sort
.SetRange Range("A1:B3000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' ActiveWindow.SmallScroll Down:=1137
' Range("C1140").Select
End Sub

Hocam burda hata veriyor.

 

[seng]

sorun benim bilgisayarımdan da kaynaklanıyor olabilir ama çalışmanızda 2 tane "buçalışmakitabı" var
yani dosyanızda zaten yapısal bir sorun var gibi.
daha büyük sorun çıkmadan veri ve macrolarınızı başka bir kitaba aktarmanız gerekebilir

Hocam aktarıcam ama calısma kıtaı korumalı acamıyorum tum sayfaları gorebılsem alıcam ama goremıyorum

 

[Patron]

v4 Sayfası

 

[seng]

v4 Sayfası

Hocam gizli baska sayfalarda var, sizce sorun ne olabilir?

 

[Patron]

Dosyanız ektedir.

 

[seng]

Dosyanız ektedir.

Hocam çok teşekkürler yine aşağıdaki kodda hata alıyorum

ActiveWorkbook.Worksheets("Koordinat").Sort.SortFields.Add2 Key:=Range("A1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

 

[Patron]

Add2 deki 2 yi silip deneyin.

 

[seng]

Hocam old

Add2 deki 2 yi silip deneyin.

u o calısma kıtabına benzemesı acısından "v4" sayfasını o sekılde nasıl grı gosterebilirim kimse işlem yapamasın istiyorum

 

[Patron]

Satırları gizleyip,sayfa koruması koyabilisiniz.

 

[seng]

Hocam cok teşekkür ederim oldu