Hücre Adıyla Dosya Adı Oluşturmak

[antiservice]

Merhaba arkadaşlar

hücreler

a1 ali
a2 veli
a3 ayse
a4 cem
hücrelerinde bu işimler belirlediğim klasörde dosya adı excel dosyası olarak yapmak istiyorum yani bu hücrelerde yazanı tek tek ali , veli , ayse , ceM diye excel dosyası yapsın yazanları bu mümkünmü
tesükkürler ŞİMDİDEN

 

[Emir Hüseyin Çoban]

. . .

Mümkün. Ancak şu kısmı biraz daha açmanız gerekiyor.
Boş bir excel tablosu mu oluşturacak. Yoksa şablon olarak alacağı bir tablo veya çalışma sayfası var mı ?

. . .

 

[antiservice]

her ikisi içinde açıklama yapabilirmisiniz zahmet olmazsa ikiside olabilir

 

[sarpkayhan]

sayın antiservice
köprüleme ile yeni sayfa belirleyebilirsin.

 

[antiservice]

köprüleme derken ben yaklaşık 2000tane bilgiyi yapcam nasıl yaparım yardımcı olabilirmisiniz

 

[Emir Hüseyin Çoban]

. . .

Boş bir excel açmak için kodlar.
Dosyanız ektedir. Yeni Tablolar klasörünü masaüstüne alıp, deneyiniz.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/yQE1VJUwFUewN

Sub KOD()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each a In Range("A1:" & [A65536].End(3).Address(0, 0))
yol = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Yeni Tablolar\" & a & ".xls"

If Dir(yol) = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=yol
ActiveWorkbook.Close True
Else
MsgBox a & "  İsimli Tablo Var", vbCritical
End If

Next
MsgBox " B i t t i "
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[antiservice]

masa üstüne attım
makro acılamıyor diyor

 

[antiservice]

macro calıştıramadım

 

[systran]

"hüseyin çoban" müsadenle;
hatayı düzelttim; masaüstüne "yeni tablolar" diye klasör oluşturmayı unutma
https://drive.google.com/folderview?id=0By_vlGkmFxCCcXVGZVBNSXhPR1U&usp=sharing

 

[Emir Hüseyin Çoban]

masa üstüne attım
makro acılamıyor diyor

. . .

Çalıştır butonunda sağ tıkla > Makro ata
Açılan ekrandan KOD makrosunu seçiniz.
(Forumda butona makro atamak diye aratabilirsiniz)

. . .

 

[antiservice]

hocam yeni dosyayı atabilirmisin

 

[antiservice]

çok teşekkür ederim gerçekten peki içindeki forma göre yapabilirmiyiz boş şablon değilde içinde çalısma sayfası ile sabit form ile

 

[antiservice]

hocam peki bütün dosyaları içinde hazır formla yapabilirmiyim