Bilginize ve Emeğinize sağlık, bazen önemsemediğimiz, görmezlikten geldiğimiz ve bazen de bildiğimiz ya da bilmediğimiz halde küçük gördüğümüz her bilgi gün gelir hayat kurtarır. Saygılarımla
Hocam emekleriniz için teşekkür Ederim. Bir çok yeni bilgiye ve beceriye sahip oluyoruz yaptığınız içeriklerle lakin, Vba. kodları yazarken yazdığınız her kodun ne işe yaradığını detaylandırırsanız bizlerde ezbere bilgilere değil kodu öğrendikten sonra kendi projelerimizde yada başka yerlerde kullanabilen kişiler olsak daha iyi olmaz mı?
abi ben visual studio 2017 ve devexpresi yükledimde benim ki Türkçe sizinki ingilizce olunca devexpress ondanmı gözükmüyor anlayamadım acaba visual dersi vermeye devam edecekmisiniz gelir gider gibi çok iyi anlatıyorsun gerçekten
Elinize sağlık, Excel macro kodlamada yeniyim, Merak ettiğim nokta dolu satır sayısını hesaplamak için; MsgBox Sayfa1.Range("A50000").End(xlUp).Row (ilk önce 50.000'inci satıra gönderip sonra yukarı gönderip son satırı bulmak yerine) MsgBox Sayfa1.Range("A1").End(xlDown).Row (neden birinci satırdan aşağıya son satır gitmeyi tercih etmiyoruz?) Denedim çalışıyor, paylaşmak istedim. güncelleme: Arada şöyle bir fark buldum, Aşağıya giden kod ilk boş satırdan önce durup, son satır muamelesi yapıyor (boş satır sonrası kayıtları/satırları görmüyor), 50.000. satırdan yukarı çıkan kod ilk dolu satıra son satır muamelesi yapıyor. Sonuç: Kayıtlar problemli/sorunlu değilse iki kod satırı da aynı şeyi yapıyor.
Abi naçizane tavsiyem bir projeyi anlatırken önce projeyi çalıştırıp sonra nasıl yapıldığını anlatsan daha iyi olur diye düşünüyorum. Videonun sonuna bakıp nasıl bir şeymiş diye bakıyor sonra videonun başına dönüyorum. Emeklerin için teşekkürler.
Dim x As Long For x = 2 To Sayfa1.Range("A50000").End(xlUp).Row If CDate(Sayfa1.Range("D" & x)) = VBA.Date - 3 OR CDate(Sayfa1.Range("D" & x)) = VBA.Date + 3 Then Sayfa1.Range("A" & x & ":" & "D" & x).Interior.ThemeColor = xlThemeColorAccent3 End If Next
Hocam teşekkür ediyorum verdiğin bilgiler için
Bilginize ve Emeğinize sağlık, bazen önemsemediğimiz, görmezlikten geldiğimiz ve bazen de bildiğimiz ya da bilmediğimiz halde küçük gördüğümüz her bilgi gün gelir hayat kurtarır. Saygılarımla
Hocam hayırlı Ramazanlar. Sizinle kod yazmayı öğrendim. Allah razı olsun
Hocam emekleriniz için tşk ederim. Cok faydalı oldu.
Eline sağlık hocam.
Hocam teşekkürler çok faydalı oldu hayırlı geceler.
Hocam emekleriniz için teşekkür Ederim. Bir çok yeni bilgiye ve beceriye sahip oluyoruz yaptığınız içeriklerle lakin, Vba. kodları yazarken yazdığınız her kodun ne işe yaradığını detaylandırırsanız bizlerde ezbere bilgilere değil kodu öğrendikten sonra kendi projelerimizde yada başka yerlerde kullanabilen kişiler olsak daha iyi olmaz mı?
❣❣❣❣❣❣
abi ben visual studio 2017 ve devexpresi yükledimde benim ki Türkçe sizinki ingilizce olunca devexpress ondanmı gözükmüyor anlayamadım acaba visual dersi vermeye devam edecekmisiniz gelir gider gibi çok iyi anlatıyorsun gerçekten
Elinize sağlık,
Excel macro kodlamada yeniyim,
Merak ettiğim nokta dolu satır sayısını hesaplamak için;
MsgBox Sayfa1.Range("A50000").End(xlUp).Row (ilk önce 50.000'inci satıra gönderip sonra yukarı gönderip son satırı bulmak yerine)
MsgBox Sayfa1.Range("A1").End(xlDown).Row (neden birinci satırdan aşağıya son satır gitmeyi tercih etmiyoruz?)
Denedim çalışıyor, paylaşmak istedim.
güncelleme:
Arada şöyle bir fark buldum,
Aşağıya giden kod ilk boş satırdan önce durup, son satır muamelesi yapıyor (boş satır sonrası kayıtları/satırları görmüyor),
50.000. satırdan yukarı çıkan kod ilk dolu satıra son satır muamelesi yapıyor.
Sonuç: Kayıtlar problemli/sorunlu değilse iki kod satırı da aynı şeyi yapıyor.
Teşekkürler. İyi oldu
Abi naçizane tavsiyem bir projeyi anlatırken önce projeyi çalıştırıp sonra nasıl yapıldığını anlatsan daha iyi olur diye düşünüyorum. Videonun sonuna bakıp nasıl bir şeymiş diye bakıyor sonra videonun başına dönüyorum. Emeklerin için teşekkürler.
Hocam katıla özel videolarınız var mı?
Evet var
Hocam kodlamayı tarih olarak bugüm ve 3 gün içinde olarak nasıl yazarız
Dim x As Long
For x = 2 To Sayfa1.Range("A50000").End(xlUp).Row
If CDate(Sayfa1.Range("D" & x)) = VBA.Date - 3 OR CDate(Sayfa1.Range("D" & x)) = VBA.Date + 3 Then
Sayfa1.Range("A" & x & ":" & "D" & x).Interior.ThemeColor = xlThemeColorAccent3
End If
Next
Ödeme gününe 3 gün kalan ve 3 gün geçen satırları boyar
Hocam teşekkür ederim :)