• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hata

  • Konbuyu başlatan Konbuyu başlatan ehmet
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
E

ehmet

Katılım
8 Ekim 2008
Mesajlar
62
Excel Vers. ve Dili
2003 türkçe
Arkadaşlar aşağıdaki kodda
s1.[D65536].End(xlUp).Offset(1, 0).Select
satırı hata veriyor, hata neresinde yardımcı olacak var mı?
teşekkürler.
userformda textbox57 ye yazılan değerleri sayfa22de d7 den itibaren yazdırmaya çalışıyorum.
ancak o satırda hata veriyor. else de sonra sayfa22.select dediğimde çalışyor ama bu seferde her seferinde sayfa22 yi açıyor. oysa ben onu istemiyorum. değer gönderildiğinde sayfa22(d7) den itibaren yazdırmasını istiyorum, mümkün mü acaba?

Private Sub CommandButton10_Click()
Set s1 = Sheets("İŞ-PROG")
If s1.Range("D7") = "" Then
s1.Range("D7") = TextBox57.Value
Else
'Sayfa22.Select
s1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
End Sub
 
Son düzenleme:
ehmet' Alıntı:
Arkadaşlar aşağıdaki kodda
s1.[D65536].End(xlUp).Offset(1, 0).Select
satırı hata veriyor, hata neresinde yardımcı olacak var mı?
teşekkürler.
userformda textbox57 ye yazılan değerleri sayfa22de d7 den itibaren yazdırmaya çalışıyorum.
ancak o satırda hata veriyor. else de sonra sayfa22.select dediğimde çalışyor ama bu seferde her seferinde sayfa22 yi açıyor. oysa ben onu istemiyorum. değer gönderildiğinde sayfa22(d7) den itibaren yazdırmasını istiyorum, mümkün mü acaba?

Private Sub CommandButton10_Click()
Set s1 = Sheets("İŞ-PROG")
If s1.Range("D7") = "" Then
s1.Range("D7") = TextBox57.Value
Else
'Sayfa22.Select
s1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
End Sub
Genişletmek için tıkla ...

Code bende hata vermedi dosyanın bos bir ornegini yüklermisiniz.Birde dosya uzerinden bakayım.
 
ehmet' Alıntı:
pardon akşam evden bakamadım;
ama anlamadım nasıl boş göndereyim.
dosya 0,7 mb civarı.
Genişletmek için tıkla ...

içinde dışarıdan insanların göremesini istemiyeceğiz bilgileri deneme veya farklı bir şekilde değiştirip rar veya zip programları ile sıkıştırıp buraya koyarsanız hatayı orjınal dosya uzerinde gorebiliriz. yukarıdaki kodaları ben kendi bilgisayarımda kullanmak için txtboc alrın filan ismini değiştirmek zorunda kaldım ve bende hata vermedi.
 
Huseyinkis' Alıntı:
içinde dışarıdan insanların göremesini istemiyeceğiz bilgileri deneme veya farklı bir şekilde değiştirip rar veya zip programları ile sıkıştırıp buraya koyarsanız hatayı orjınal dosya uzerinde gorebiliriz. yukarıdaki kodaları ben kendi bilgisayarımda kullanmak için txtboc alrın filan ismini değiştirmek zorunda kaldım ve bende hata vermedi.
Genişletmek için tıkla ...

İlgine teşekkür ederim dosya ekte, dosyanın orjinali formüllerle çalışıyor, ancak ben kodlarla düzenleyip dışardan müdahaleyi sınırlandırmak istiyorum, "düşe kalka" yaptığım için dosya biraz dağınık. problem userform4 / başla /multipage sayfa6 buton 10 da...
 

Ekli dosyalar

Private Sub CommandButton10_Click()
Aplicatiun.
Set s1 = Sheets("İŞ-PROG")
If s1.Range("D7") = "" Then
s1.Range("D7") = TextBox57.Value
Else
'Sayfa22.Select

S1.Select

s1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
End Sub



Sayfayı seçmediği için hata veriyor. Dosyayı bu kadar yoğun beklemiyordum:)
S1.Select yazarsan hata düzelecektir.
işlemi yaparkan o sayfayı gitmesini istemiyorsan kodun başına

Application.ScreenUpdating = False

sonunada

Sheets("Hangi sayfa istiyorsan").select
Application.ScreenUpdating = True

formullerini kullana bilirsin.
 
Sayfayı seçmediği için hata veriyor. Dosyayı bu kadar yoğun beklemiyordum:)
S1.Select yazarsan hata düzelecektir.
işlemi yaparkan o sayfayı gitmesini istemiyorsan kodun başına

Application.ScreenUpdating = False

sonunada

Sheets("Hangi sayfa istiyorsan").select
Application.ScreenUpdating = True

formullerini kullana bilirsin.[/QUOTE]

ilginize teşekkür ederim.. sizi epey yorduğumun farkındayım
ama olmadı yine...
Private Sub CommandButton10_Click()
Application.ScreenUpdating = False
Set S1 = Sheets("İŞ-PROG")
If S1.Range("D7") = "" Then
S1.Range("D7") = TextBox57.Value
Else
S1.Select
S1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
Sheets("VERI").Select
Application.ScreenUpdating = True
End Sub


kod yukarıdaki gibi, yanlış mı yapıyorum acaba...
 
ehmet' Alıntı:
Sayfayı seçmediği için hata veriyor. Dosyayı bu kadar yoğun beklemiyordum:)
S1.Select yazarsan hata düzelecektir.
işlemi yaparkan o sayfayı gitmesini istemiyorsan kodun başına

Application.ScreenUpdating = False

sonunada

Sheets("Hangi sayfa istiyorsan").select
Application.ScreenUpdating = True

formullerini kullana bilirsin.
Genişletmek için tıkla ...

ilginize teşekkür ederim.. sizi epey yorduğumun farkındayım
ama olmadı yine...

Private Sub CommandButton10_Click()
Application.ScreenUpdating = False
Set S1 = Sheets("İŞ-PROG")
If S1.Range("D7") = "" Then
S1.Range("D7") = TextBox57.Value
Else
S1.Select
S1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
Sheets("VERI").Select
Application.ScreenUpdating = True
End Sub


kod yukarıdaki gibi, yanlış mı yapıyorum acaba...[/QUOTE]
 
Huseyinkis' Alıntı:
Private Sub CommandButton10_Click()
Aplicatiun.
Set s1 = Sheets("İŞ-PROG")
If s1.Range("D7") = "" Then
s1.Range("D7") = TextBox57.Value
Else
'Sayfa22.Select

S1.Select

s1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
End Sub



Sayfayı seçmediği için hata veriyor. Dosyayı bu kadar yoğun beklemiyordum:)
S1.Select yazarsan hata düzelecektir.
işlemi yaparkan o sayfayı gitmesini istemiyorsan kodun başına

Application.ScreenUpdating = False

sonunada

Sheets("Hangi sayfa istiyorsan").select
Application.ScreenUpdating = True

formullerini kullana bilirsin.
Genişletmek için tıkla ...




Private Sub CommandButton10_Click()
Application.ScreenUpdating = False
Set S1 = Sheets("İŞ-PROG")
If S1.Range("D7") = "" Then
S1.Range("D7") = TextBox57.Value
Else
S1.Select
S1.[D65536].End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox57.Value
End If
TextBox57 = "Diğer Ayı Gir"
Sheets("VERI").Select
Application.ScreenUpdating = True
End Sub

Kodu bu şekilde düzelttim, ancak yine aynı hatayı verdi,
sizi çok yorduğumun farkındayım, ilginize teşekkür ederim..
 
Şimdi Farkettim Bazı kodların içerisinde sayfaları gizliyorsun o yuzden hata veriyor.

Sheets("İŞ-PROG").Visible=true
Sheets("VERİ").Visible= true

bu kodları Application.ScreenUpdating = False

kodunun altına yerleştir. dosya gizli ise açar.oyle işlem yapar sonunada istersen tekrar gizli yap ama veri sayfasına git dediğin için veri sayfasını gizleme sonda.
 
huseyinkis' Alıntı:
şimdi farkettim bazı kodların içerisinde sayfaları gizliyorsun o yuzden hata veriyor.

Sheets("iş-prog").visible=true
sheets("veri").visible= true

bu kodları application.screenupdating = false

kodunun altına yerleştir. Dosya gizli ise açar.oyle işlem yapar sonunada istersen tekrar gizli yap ama veri sayfasına git dediğin için veri sayfasını gizleme sonda.
Genişletmek için tıkla ...

teşekkürler hocam;
programı temize çektim, sayenizde problem görünmüyor,
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst