Sayın hocam, ilk kez bir derste bu kadar akıcı ve güzel bir anlatıma denk geldim, öğretmek sizin için çok kolay olmalı, eğitim serinizin devamını çekerseniz çok memnun kalırız. saygılarımla..
Son satırı bulma kısmını günlerdir arıyordum. Çok teşekkürler. Eğer derslere devam edecekseniz grafik ekleme ile ilgili makrolar güzel olabilir diye düşündüm.
Verdiğiniz örnekte sayısal değerlerin arasına yanlışlıkla metinsel değer girilmiş ise hatayı atlamamak gerekir yani end if yerine Exit sub deyip kodu sonlardırmak ve kullanıcıya end sub dan önce msgbox " hatalı hücreler var kontrol et" gibi mesaj verebilirsiniz böylece isteğe bağlı olarak isNumeric kullanmaya gerek kalmaz
Hocam son satırı bulmak için yazdığınız formüldeki bir ifade hakkında bilgi vermek istiyorum benimle aynı sorunu yaşayan arkadaşlar olabilir. Eğer her şeyi doğru yaptığınızı düşünüyor ve yine de error 1004 kodlu hatayı alıyorsanız şunu yapın. *sonHücre = Worksheets("Sheet4").Cells(Rows.Count, "B").End(xlUp).Row ->* End kodunda parantezin içinde 1 gibi görünen karakter aslında L harfi arkadaşlar 1 saat boyunca hatanın nerede olduğunu aradıktan sonra anca bulabildim. Belki birilerine faydası dokunur ve benim gibi zaman kaybı yaşamaz diye paylaşıyorum.
Sayın hocam, ilk kez bir derste bu kadar akıcı ve güzel bir anlatıma denk geldim, öğretmek sizin için çok kolay olmalı, eğitim serinizin devamını çekerseniz çok memnun kalırız. saygılarımla..
Son satırı bulma kısmını günlerdir arıyordum. Çok teşekkürler. Eğer derslere devam edecekseniz grafik ekleme ile ilgili makrolar güzel olabilir diye düşündüm.
Değerli Paylaşımınız İçin Teşekkür Ederim
Gerçekten çok güzel anlatıyorsunuz peki ilk giren ilk çıkar (fifo) formülünü macro olarak yazabilir misiniz
Bu değerli çalışma için teşekkür ederiz. Mesut Bey devamını bekliyoruz.
Verdiğiniz örnekte sayısal değerlerin arasına yanlışlıkla metinsel değer girilmiş ise hatayı atlamamak gerekir yani end if yerine Exit sub deyip kodu sonlardırmak ve kullanıcıya end sub dan önce msgbox " hatalı hücreler var kontrol et" gibi mesaj verebilirsiniz böylece isteğe bağlı olarak isNumeric kullanmaya gerek kalmaz
Çok teşekkürler dersler için, makro öğrenmenin zamanı gelmişti :)
Güzel Bir Paylaşım Olmuş Teşekkürler.Güzel Paylaşımlarınız İçin
Ellerine sağlık kardeşim devamını bekliyoruz
IF IsNumeric formulü yerine Dim....As.... olarak sayı tanımlayabilir miydik?
Teşekkürler.
hocam 5 sene oldu devamı yada satın alacagımız bi yer var mı?
sonHücre yazdınız excel bunda nasıl hata vermedi türkçe harf kullandınız merak ettim
hocam çok güzel anlatıyorsunuz fakat konuya yabancı olduğumuz için tek örnekle pekiştirmek zor oluyor. Örneklendiremeleri çoğaltabilir miyiz.
abi elimde bir excel programı var pact not found hatası veriyor makrolarda acaba nasıl cözerim soylermisin
Hocam son satırı bulmak için yazdığınız formüldeki bir ifade hakkında bilgi vermek istiyorum benimle aynı sorunu yaşayan arkadaşlar olabilir. Eğer her şeyi doğru yaptığınızı düşünüyor ve yine de error 1004 kodlu hatayı alıyorsanız şunu yapın.
*sonHücre = Worksheets("Sheet4").Cells(Rows.Count, "B").End(xlUp).Row ->* End kodunda parantezin içinde 1 gibi görünen karakter aslında L harfi arkadaşlar 1 saat boyunca hatanın nerede olduğunu aradıktan sonra anca bulabildim. Belki birilerine faydası dokunur ve benim gibi zaman kaybı yaşamaz diye paylaşıyorum.
Aslında direk Worksheet yazmadan Cells(Rows.Count, "B").End(xlUp).Row da oluyor.
Çok teşekkürler. L harfini hiç farketmemiştim. Zaman kaybı yaşamadım sayende
xlUp =excelde en alttan yukardaki satıra git xlDown veya xlLeft de olabilir sağa sola aşağı yukarı demektir
Merhabalar eşekkürler eğitim için.
Satırların arasında bir ya da bir kaç boş satır olsa idi o zamanda doğru sonucu verir miydi ?
If IsNumeric(Worksheets("Sheet2").Range("B" & i).Value) And Worksheets("Sheet2").Range("B" & i).Value "" Then
Memleket Iğdır sanırım :)) 76. hücre:)