Runtime error 438 hatası

[fatih34]

iyi çalışmalar arkadaşlar
Userform1.Show yaparak aşağıda kodunu verdiğim userforma gitmek istiyorum ancak "Runtime error 438 " hatası çıkıyor altındada object dosent suport this or method yazıyor.önceden böyle bir sorun yoktu sayfaya gitmek istedğimde bu hatayı verdi ve ayrıca excel sayfasında bulunan tablonun kopyasını yapıştırıyor


Private Sub CommandButton1_Click()
Sheets("Sayfa1").Activate
Sheets("Sayfa1").PageSetup.PrintArea = "Yazdırma_Alanı1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Sheets("Sayfa1").PageSetup.PrintArea = "Yazdırma_Alanı2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub


Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
Range("A1:AK72").CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.hEİGHT
Selection.Cut
Set grafik = ActiveSheet.ChartObjects.Add(, , genislik, yukseklik)
grafik.Chart.Paste
grafik.Chart.Export ThisWorkbook.Path & "\xxresimxx.jpg"
Frame1.Picture = LoadPicture(ThisWorkbook.Path & "\xxresimxx.jpg")
grafik.Delete
Kill ThisWorkbook.Path & "\xxresimxx.jpg"
End Sub

formda bu şekilde kullanıyorum neden dolayı bu hatayı vermeye başladı aynı şekilde bir kaç tane daha formum var aynı kodlu onlarda bu hata çıkmıyor

 

[anilkurt]

Merhaba arkadaşlar ben de Runtime error 438 hatası alıyorum kafayı yiyecem acil yardımcı olur musunuz.

Kod bu:

Sub SIRALA()
ActiveWorkbook.Worksheets("Siparişler").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Siparişler").Sort.SortFields.Add Key:=Range("h5:h1200") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Siparişler").Sort
.SetRange Range("a5:ah1200")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Mehmet Şahin]

Merhaba,
"F ields" yazımlarındaki boşlukları saymazsak kodunuz hata vermiyor. Gerçek data ile denemek de gerekebilir. İyi çalışmalar.

 

[abonem]

yukseklik = Selection.hEİGHT

yi,

yukseklik = Selection.height

olarak değiştirip, dener misiniz?

 

[anilkurt]

F ields yazımlarını Fields olarak düzenledim ama yine aynı hata. Bir türlü çözemedim şu problemi yardımlarınızı bekliyorum arkadaşlar.

 

[Mehmet Şahin]

Merhaba,
dosya eklem şansınız yok mudur? Ben kodunuzu hatasız çalıştırdım.

 

[abonem]

@anilkurt "Siparişler" i Siparisler olarak sheet adında ve kodda değiştirip sorun veren bilgisayarlarda dener misiniz ...

 

[anilkurt]

Türkçe karakter sorunu mu acaba diye düşündüm ben de şimdi tekrar denedim kardeşim ama sonuç yine olumsusuz ya.

 

[anilkurt]

Arkadaşlar dosyayıda gönderdim yardımlarınzı bekliyorum.

 

[anilkurt]

Yok mu yardımcı olacak bir arkadaş.