Otomatik form düzenleme

[emre67z]

Merhaba arkadaşlar,

Örnek dosyada belirttiğim gibi,

Alt alta yazılı kişisel bilgilerden oluşan veriyi, form sayfasında ilgili alanların karşısına yazdırıp oluşan formun kişinin adı-soyadı adına kayıt (masa üstüne) edilebilmesini arzu ediyorum. hücreler ana form ile kalibre şeklindedir. o yüzden sarı işaretledim.

teşekkür ederim,
Emeği geçen herkese teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte.

 

[emre67z]

Teşekkürler gerçekten,elinize sağlık. Ancak masa üstünde Değerlendirme2 diye klasor içine kayıt etmem için hangi kısıma ekleme yapmam lazım

Set YeniDosya = ActiveWorkbook
YeniDosyaYolu = (Environ("USERPROFILE") & "\Desktop\" & Cells(Bak, "C").Value & ".xlsx")
Dim ds As Variant
Set ds = CreateObject("Scripting.FileSystemObject")
If Dir(YeniDosyaYolu) = "" Then
YeniDosya.SaveAs YeniDosyaYolu
YeniDosya.Close True

 

[Muzaffer Ali]

Şöyle olmalı.

YeniDosyaYolu = (Environ("USERPROFILE") & "\Desktop\Değerlendirme2\" & Cells(Bak, "C").Value & ".xlsx")

 

[muygun]

Merhaba;
Alternatif:
(Dosya nerde ise bulunduğu yere dosyaları kaydeder. Aynı isimli dosya varsa değiştirir.)
İyi çalışmalar.

 

[emre67z]

Şöyle olmalı.

YeniDosyaYolu = (Environ("USERPROFILE") & "\Desktop\Değerlendirme2\" & Cells(Bak, "C").Value & ".xlsx")

Çok işime yaradı teşekkürler,ben 2. \ atmayı akıl edemedim, dosyanın adına ekledi klasör ismini