Çözüldü Formülün vba karşılığı

[himmgarip]

Aşağıdaki formül vba da nasıl yazılır? Desteğinizi rica ediyorum.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Adnan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[himmgarip]

Adnan hocam hücreye "=row()-1" gibi formül olarak yazdiracagim.

C10 ve L10 son satırdan bir sonraki boş satır numarası alacak. Ona "sonsatir" dersek nasıl olacak?

Bütün sayfayı formülle boğmak istemiyorum.

 

[Adnan]

en güzeli olmasını düşündüğünüz şekilde bir tane basit örnek hazırlayın onun üzerinden gidelim

 

[himmgarip]

Userform da devir butonuna ekleyeceğiz hocam.

 

[Adnan]

neyi nereye nasıl yapılacak. onu yazmamışsınız

 

[himmgarip]

neyi nereye nasıl yapılacak. onu yazmamışsınız

Userformda bulunan Devir butonuna basınca seçilen cari sayfasının K sütunun en son doludan sonraki satırına yazacak.

 

[Adnan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

devir düğmesindeki kodu düzenledim böylemi olsun istiyorsunuz

 

[himmgarip]

Adnan Hocam,

Bu formülü;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

olduğu gibi sadece hücre adları son satır adını alarak yazdırmak istiyorum. Aşağıdaki gibi bir şey olacak ama kafam karıştı çıkamadım işin içinden.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Özetle doğrudan formülü hücreye yazdırmak istiyorum.

 

[VetExc]

Merhabalar Sn. himmgarip makrodan bağımsız olarak =EĞER(VE(C10="DEVİR");(L10+0);"") bu formülünüzde VE işlevini kullanmanızın nasıl bir gereksinimi var. Çünkü sadece tek şart sunmuşsunuz eğer C10 devir ise L10 daki veriyi sayıya çevir değilse boş bırak... formülünüzü kısaca aşağıdaki gibi de kullanabilirsiniz.

=EĞER(C10="DEVİR";L10+0;"")

 

[Ümit Bakacak]

Sayın himmgarip VBA ile formül yazdırmak yerine formülü VBA ile hesaplatıp sonucu yazdırmak daha kolay olmaz mı? Hem de dosyada formül yükü olmaz.

 

[himmgarip]

Merhabalar Sn. himmgarip makrodan bağımsız olarak =EĞER(VE(C10="DEVİR");(L10+0);"") bu formülünüzde VE işlevini kullanmanızın nasıl bir gereksinimi var. Çünkü sadece tek şart sunmuşsunuz eğer C10 devir ise L10 daki veriyi sayıya çevir değilse boş bırak... formülünüzü kısaca aşağıdaki gibi de kullanabilirsiniz.

=EĞER(C10="DEVİR";L10+0;"")

Formülün devamı vardı Sayın VetExc23 .
Yapı değişikliği olduğu için sildim, Ve kalmış orada dikkatimi çekmedi. Teşekkürler.

 

[Adnan]

örneği inceleyin bir kaç satırda oluşan örnek yazın olay karıştı

 

[himmgarip]

Sayın himmgarip VBA ile formül yazdırmak yerine formülü VBA ile hesaplatıp sonucu yazdırmak daha kolay olmaz mı? Hem de dosyada formül yükü olmaz.

Üstatlar kafam karıştı

Hepinizin çok güzel fikirleri var. Tek tek teşekkür ederim.

Burada cari hesap durumu var.

Ay sonunda ya da 15 günde bir cariden devir alınıyor.

Burada kendi düşüncemle formül olsa hata payı daha az olur diye düşündüm.
Kullanıcı arkadaşım ve konu hakkında çok zayıf. Sayfa da bir yer siler kayıtlarda silme yaparsa diye doğrudan vba dan hesaplatıp yazmak istemedim.
Kayıt eklerken formülü ekle, kayıt silerken formülü sil şeklinde ayarlama yapacaktım.

Tekrar teşekkürler

 

[Ümit Bakacak]

Şu satırın yerine
ws.Cells(SON2, 11) = "=L" & SON2

Bunlardan birini dener misiniz?
ws.Range("K" & SON2).Formula = "=IF(C" & SON2 & "=""DEVİR"",L" & SON2 & "+0,"""")"
ws.Cells(SON2, 11).Formula = "=IF(C" & SON2 & "=""DEVİR"",L" & SON2 & "+0,"""")"

Sonuç olarak hücrede =eğer(Cson="DEVİR";Lson+0;""
formülünü göreceksiniz.

 

[himmgarip]

Teşekkürler ubak hocam.

İstediğim buydu. Elleriniz sağlık.