Runtime error 1004

[Argornst]

Merhabalar;

Sayfa1.Worksheet_Activate

Dosyayı açtığımda "run time error:1004 Application-defined or object-defined error " hatası veriyor ve debug dediğim zaman üstteki bölümü sarı ile işaretliyor. Dosya benim dışımda ofisteki herkeste doğru çalışıyor. Yardımcı olabilir misiniz?

 

[bmutlu966]

Merhaba,

O kodu silip dosyanızı kaydedip tekrar deneyin.

 

[Argornst]

Merhaba,

O kodu silip dosyanızı kaydedip tekrar deneyin.

Denedim herhangi bir hata almadım teşekkür ederim. Ancak problem devam ediyorum makro diğer bilgisayarlarda tıkır tıkır çalışıyor. Ancak ben sorun yaşıyorum. Bunun nedenini bulamadım muhtemelen bir format zamanı geldi.

 

[GhostCu]

aynı sorun bendede var kodalara bir bakıp çözüm bulabilecke varmı

 

[ismailem]

Denedim herhangi bir hata almadım teşekkür ederim. Ancak problem devam ediyorum makro diğer bilgisayarlarda tıkır tıkır çalışıyor. Ancak ben sorun yaşıyorum. Bunun nedenini bulamadım muhtemelen bir format zamanı geldi.

 

[ismailem]

Sayfa1.Activate

Yapiniz

 

[GhostCu]

aynı sorun bendede var kodalara bir bakıp çözüm bulabilecke varmı

Bunun çözümüne bakan yokmu

 

[ismailem]

aynı sorun bendede var kodalara bir bakıp çözüm bulabilecke varmı

x1Up
yerine
xlUp yazınız. buradaki 1 (bir) rakam değil küçük harflerle le yazınız .

 

[ismailem]

KayıtSayısı = Sheets("VERİ GİRİŞİ").Cells(Rows.Count, "d").End(x1Up).Row

bunun yerine (x1Up) x solunda bir rakamla yok oradaki bir yerine küçük harflerle L harfi var
KayıtSayısı = Sheets("VERİ GİRİŞİ").Cells(Rows.Count, "d").End(xlUp).Row
yaptık sorun çözüldü.

 

[GhostCu]

çok değişik valla daha öncede kullandım 1 olması lazımdı çok teşekkür ederim yeni birşey daha öğrendim

 

[ismailem]

örnek Range("D4").FormulaR1C1 = "=R3C2*10" da R solunda ve C nin solunda bir var. Birin olduğu yerlerden biridir. Ben de bir kere biri l ile karıştırmıştım. Olmuyordu bir türlü. FormulaARICI diye biliyordum. Meğer o I lar birmiş.

 

[GhostCu]

çok teşekkürler ilginç ve bilinmesi gerek.

birde orda bir arama formu yaptım textboxa yazı yazmaya çalışıtığımda yazmıyor false yazıyor bu neden kaynaklı

 

[ismailem]

Private Sub TextBox1_Change()
Dim texr As Variant
'Bu satırın önceki hali Text = TextBox1.Text: Text = Text = UCase(Text): TextBox1.Text = Text
' burada iki Text=Text üst üste gelmiş iki defa eşit ifadesi vba uygun değil. doğrusu alttaki gibi olacak.
'Bu kullandığınız özellik başka programlarda destekler yalnız vba ya uygun değil. Sanırım c++ da var bu özellik.
Text = TextBox1.Text: Text = UCase(Text): TextBox1.Text = Text
Call KayıtlarıAl
End Sub

 

[ismailem]

Text = TextBox1.Text: Text = UCase(Text): TextBox1.Text = Text


bu şekilde çözüldü