Excel VBA Function kullanımı ile ilgili küçük bir örnek

[@muzafferbicer4217]

Hocam , Paylaşımınız için Teşekkürler.

[@renas412]

Her zamanki gibi harikasınız ellerinize sağlık çok teşekkürler

[@Bekir_Dibekli]

Hocam emeğinize sağlık

[@pesonline7145]

Hocam dersleriniz cok basarili sayeniZde kendimizi gelistiriyoruz birde toplu hareket silme ve guncelleme ornegini gosterirseniz seviniriz

[@Yorumcu63]

Güzel ders

[@hasanozel9441]

Allah razı olsun saolun hocam sizden çok şey öğreniyoruz.

[@ilkercandan5530]

hocam ön muhasebe programına ne zaman devam edeceksiniz.merakla ve sabırsızlıkla bekliyorum.

[@sefaelmas8501]

Reis kralsın ☺️

[@yalcnoruc3]

Döngü kurmak bütün hücrelere tek tek bakacağı için büyük bir dosyada çalışıyorsak o zaman çok yavaşlar tek tek bakması gerekir bu yüzden yapılan çalışmaya göre yöntem seçilmeli. Hocam excel sadece formları kullansak accses veri tabanı olarak kulansak bunun üzerine anlatımlar yapsanız en büyük boşluklardan biri benim gibi bir çok kişiye yardımcı olursunuz.

[@BstYazilim]

Haklısınız. 500.000 - 600.000 satırlık sayfalarda gayet hızlı. Tabiki SQL altyapılı programlar kadar hızlı olamaz.

[@zafergun68]

Merhaba. Bende aynısını demek istemiştim.Yani örneğin 500 binde ise son kaydetme satırı yani 500 bine kadar kayıt girildiyse sizin yönteminize göre döngü belkide kilitleyecektir dosyayı.Zaten formdan kaydederken A sütunu için arada boşluk olmaz.Olsa bile kısa bir kod ile tüm boş satırı sildirebiliriz yine döngüsüz :)

[@BstYazilim]

Aynen öyle. Sayenizde 2 farklı yöntem öğrenmiş olduk. Haklısınız benim yöntem mesele 1.000.000 . satıra 4-5 saniye gecikmeli kaydeder.Bundan sonra sizin önerdiğiniz şekilde son satırı bulmak daha doğru olur.Teşekkürler Zefer bey.

[@zafergun68]

​@@BstYazilim Rica ederim hocam ben fazla anlamam lakin öyle gördüm her yerde.Birde alttaki gibi kod hazırladım örnek olması açısından arada boşluk varsa diye.Kodu biraz süsledim ondan dolaı uzun oldu.Birde ben hep sayfa adlarını yazmayı tercih ediyorum ne olur ne olmaz diye yanlışlıkla modül içinde başka bir sayfada yanlışlıkla çalışrırılabilnir diye.Son satır bulma yöntemleri başka türlüde oluyor ben genelde ya alttaki gibi yada sizin cells(rows.count,1).end(3).row gibi yapıyorum :) Saygılar. Function sayfaAd() As Worksheet Set sayfaAd = ThisWorkbook.Sheets("Sayfa1") 'Istenilen sayfa adı yazılabilinir. End Function Sub Test() Dim son As Long With sayfaAd son = .Range("A" & Rows.Count).End(3).Row On Error GoTo var 'A sütununda boşluk yoksa hata verir alttaki satırdan dolayı yazıldı. .Range("A2:A" & son).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'A sütununun A2 ile son dolu satırı arasında boşluk varsa siler. var: On Error GoTo 0 son = .Range("A" & Rows.Count).End(3).Row .Range("A" & son + 1).Value = "Test" End With son = Empty End Sub

[@zafergun68]

@@BstYazilim Rica ederim hocam.1 milyona kadar A sütununu doldurdum denemk için sizin döngü 20 saniye sürdü son satır olayı ise 1 saniye.Zaten 1 milyona kadar veri olmazda yinede yazayım istedim.

[@pentapenta7792]

Yazdığınız yöntemle son satırdan önceki herhangi bir satırın boş olması durumunda son kaydın üzerine yazar durursunuz. Videoda yöntem biraz değiştirilmiş çalışır halde anlatılmış. Oysaki o yöntem hatayı affetmez.

[@ismailhasoglu3931]

Slm Hocam takvimi yaptım fakat tıklayınca hücreye yazmıyor

[@BstYazilim]

Dersi bir daha izlesen eminim küçük bir hata yapmışsındır

[@ismailhasoglu3931]

kanaatimce registırı çalıştıramadım

[@muhammednedimsahvelet4431]

Hocam dersler çok faydalı oluyor lütfen bırakmayın dersleri

[@BstYazilim]

😄 Daha anlatacak çok şey var. Merak etme👍

[@erhanercengiz8588]

ben şöyle yapardım: ss=range("a1").end(xldown).row+1 range("a"&ss).value=range("c1").value