Merhaba Hocalarım,

Elimde Udf uzantılı belgelerim var. Udf uzantılı dosyaya vba ile örneğin "yardımcı olana teşekkür ederim" yazdırmak istiyorum. Udf uzantılı dosya için bu mümkün değilse, örneğin yeni bir word dökümanı açtırarak en basit kodla nasıl bu ibareyi yazdırabilirim?

Yapmak istediğim yerimi kullanmaksızın sırf vba koduyla şablon oluşturmak... Saygılar

Udf formatını şu kodla açtırdım ancak içeriğine yazdıramıyorum.Hocalarım destek lütfen...

Dim yol As String
yol = CurrentProject.Path & "\deneme" & ".udf"
Application.FollowHyperlink yol, , True, True

İncelersin belki yardımcı olur

Sn userx53,

Telekompro_son adlı çalışmada etk_ilerleme bölümü bana çok etkileyici geldi. Bunu genel bir fonksiyona çevirip istediğimiz yerde ilerlemeyi gösterebilmek için call yaparak istenilen alana ekleyebilir miyiz?
İkinci sorum da bu fonksiyonu düzenlerken sayfaya etiket(etk_ilerleme) benzeri alan eklemek yerine komut sonrası pop up açtırıp ilerlemeyi gösterebilir miyiz?

1.Kod

BarGenisligi = etk_ilerleme.Width - 40
l = 0
etk_ilerleme.Visible = True
TimerInterval = "100"


2.Kod

Do Until l >= BarGenisligi
Call BarIlerlet(l)
l = l + 40
Beklet 0.01
Hesaplama = (l * 100) / BarGenisligi
Hesaplama = Mid(Hesaplama, InStr(1, Hesaplama, ",") + 1)
etk_ilerleme.Caption = "%" & Hesaplama
Kutu1.Visible = True

Bu iki kodun yazılı olduğu alanları incelersen düşündüğünü açılan yeni bir form üzerinde yapabilirsin.

Teşekkür ederim herkese . Örnek ve fikirleriniz yardımcı oldu.