• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Makroda basvuru hatası

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
seng

seng

Yeni Üye
Katılım
7 Nis 2021
Mesajlar
807
Çözümler
1
Aldığı beğeni
94
Excel V
Office 2013 EN
Konu Sahibi
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.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Başvuru hatasını nerede alıyorsunuz
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
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
Genişletmek için tıkla...
1660299583415.png
Hocam burda hata veriyor.
1660299604042.png
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
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
Genişletmek için tıkla...
Hocam aktarıcam ama calısma kıtaı korumalı acamıyorum tum sayfaları gorebılsem alıcam ama goremıyorum
 
Olumlu oy 0 Negatif oyla
v4 Sayfası
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Dosyanız ektedir.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Add2 deki 2 yi silip deneyin.
 
Olumlu oy 0 Negatif oyla
Satırları gizleyip,sayfa koruması koyabilisiniz.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst