hata düzeltme (veri çekerken hata vermesi ve veri yazdırma)

[metince54]

elimdeki excelde başka sayfadan tekrarlayan veriyi çekerken hata veriyor ayrıca useformda kaydetmede ufak bir sorunum var ekli dosyada açıklama yaptım. Şimdiden emeği geçen herkese teşekkür ederim .

 

[metince54]

yardım edecek kimse yok mu?

 

[ÖmerBey]

Merhaba,

        If Cells(sat, "E").Value = "YAPILDI" Then
            Cells(sat, "F").Value = sh.Cells(k.Row, "H").Value
            Cells(sat, "G").Value = Date - Cells(sat, "F").Value
            Cells(sat, "F").Value - Cells(sat, "D").Value
        End If

Kırmızı satırdaki ifade sanırım şu şekilde olacak:

Cells(sat, "H").Value = Cells(sat, "F").Value - Cells(sat, "D").Value

Diğer sayfaya kayıt için de sayfa adını başa ekleyebilirsiniz. Mesela;

Mutlu = Sheets("İŞLER").Range("A65536").End(3).Row + 1
Sheets("İŞLER").Cells(Mutlu, "A") = TextBox1.Text

 

[metince54]

emeğiniz için çook teşekkür ederim ilk verdiğiniz hata veren kod düzeldi. 2. verdiğiniz kodu ya ben yanlış yere yapıştırıyorum yada kodda bir sorun var . tekrardan ilgilendiğiniz için teşekkür ederim

 

[ÖmerBey]

İkinci kod için sadece benim belirttiğim kadarını yapmışsanız yeterli olmayacaktır. Sayfa belirtilmediği için kodlar aktif sayfada işlem yapıyor. O yüzden sayfaya kayıt kodlarınızda yer alan bütün başvuruların başına Sheets("İŞLER"). ifadesini ekleyerek deneyiniz.

 

[metince54]

İlginize için çok teşekkür ediyorum. biraz deneme yaparak geri bildirim yapacağım . ilk denemede sorunsuz çalıştı. bu arada ben şu
Sheets("İŞLER").Cells(Mutlu, "A") = TextBox1.Text mutlu kelimesinin ne ifade ettiğini anlamadım ne işe yarıyor nedir?

 

[ÖmerBey]

Muhtemelen kodları yazan kişinin adıdır. Örnek dosyanızda öyle yazdığı için değiştirmedim. Dilerseniz başka bir ifade ile değiştirebilirsiniz.
Ne işe yaradığına gelecek olursak;
Mutlu = Sheets("İŞLER").Range("A65536").End(3).Row + 1mutlu değeri = işler sayfası A sütunundaki son dolu hücrenin satır numarasının bir fazlası olsun. (Yani dolu hücrenin altındaki boş hücrenin satır numarası)
Sheets("İŞLER").Cells(Mutlu, "A") = TextBox1.Text işler sayfasındaki A sütunu mutlu satırının değeri textbox1'in metni olsun.

 

[metince54]

mutlu kelimesi sadece isimden ibaret bir komut vb şeyi tetiklemiyor ozaman. sayfa vs adı değil bende diyorum ne mutlu ne işe yarıyor diye

 

[metince54]

Ömer bey ilgi ve alakanızdan dolayı çok çok teşekkür ederim. İnş başka arkadaşlarda faydalanır

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...

 

[metince54]

Merhaba Ömer bey yapıldılarda böyle bir hata ile karşılaştım size zahmet veriyorum kusra bakmayın uygun zamanınızda bakarsaniz sevinirim

 

[ÖmerBey]

Hatanın ne olduğunu belirtmemişsiniz ama zannedersem tarih formatları farklı olduğu için hata alıyorsunuz. Tarihlerden biri metin olarak geliyor sanırım. Kayıt sayfasını inceleyiniz. Aşağıdaki şekilde hata almazsınız.

Cells(sat, "H").Value = CDate(Cells(sat, "F").Value) - CDate(Cells(sat, "D").Value)

 

[metince54]

ellerinize sağlık şuanda sorun görünmüyor gibi. teşekkür ederim