Toplama kalemleri

[manisali50]

Arkadaşlar merhaba
Toplama kalemleri ile ilgili dosyam ektedir..
Şimdiden teşekkürler

(NOT : Dosyayı açtığınızda karşınıza gelen makro uyarısının önemi yok..End deyip geçin)

 

[BASKICI]

Sayın Manisali50 ;

Function formul(InputCell As Range) As String

formul = InputCell.FormulaLocal

End Function

bunu modül olarak kaydedin vba da. ve +11+11+121 şeklinde yazmak istediğiniz yere de =formul(HücreAdı) şeklinde yazarsanız gelecektir. Dosyanızı inceledim fakat VBA da şifre koymuşsunuz o yüzden düzenleyemedim . Dosyanıza göre =formul(C10) olması gerekiyor.Saygılarımla.

 

[manisali50]

Arkadaşım teşekkürler..Bir miktar işimi görür ama kalemlerine ayrılmayacak satırların boş geçmesini istiyorum.. C10 hücresine bunları yazacağına zaten ben manuel olarak o kalemleri ayrı girerim..benim düşüncem formülü boydan boya kaydedip gerektiği hücrelerde iş görmesini sağlamak.

 

[Ömer]

Merhaba,

Aynı ktf ile formülü aşağıdaki gibi kullanın.

=EĞER(YADA(EMETİNSE(C5);ESAYIYSA(formul(C5)+0));"";formul(C5))

.

 

[manisali50]

Üstadım tamamdır..Teşekkür ederim.