excel dosyasının adını hücreye eşitleme

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlar ricam benim istanbul - ankara - antalya adında excel dosya adım var onun ilk bölümünü A1 hücresine excel ilk açılışında eşitleyebilirmiyiz yani autoopen içine hangi kodu yazarsak A1 de istanbul yazar.İlginiz için şimdiden tşkler.İyi çalışmalwr.

 

[Necdet]

Merhaba,

Soruyu pek anlamadım ama, her şartta İstanbul mu yazmalı? Eğer öyle ise aşağıdaki kodu kullanabilirsiniz.

Private Sub Workbook_Open()
Sheets("Sayfa1").Select
[A1] = "İstanbul"
End Sub

 

[Sa.NaL]

hayır her şartta değil her zaman ilk bölümünü eşitlesin mesela adapazarı - hendek - kaynarca olsun dosya adım A1 = adapazarı olsun her zaman ismin belirli bir bölümünü eşitleyebilme kodunu istiyorum.İlginiz için de ayrıca tşkler.

 

[Merhum İdris SERDAR]

Private Sub Workbook_Open()
Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=LEFT(MID(LEFT(CELL(""FILENAME"",RC[1]),FIND(""]"",CELL(""FILENAME"",RC[1]))- 1),FIND(""["",CELL(""FILENAME"",RC[1]))+1,255),FIND(""-"",MID(LEFT(CELL(""FILENAME"",RC[1]),FIND(""]"",CELL(""FILENAME"",RC[1]))- 1),FIND(""["",CELL(""FILENAME"",RC[1]))+1,255),2)-1)"
Range("A1").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub



Kodlarını deneyin.


.

 

[Sa.NaL]

valla oldu saol hocam

 

[Necdet]

Yani şunu mu soruyorsunuz ?

Dosyanın adı ne ise bunun ilk hecesini A1 hücresine yazsın.

 

[Necdet]

Sayın Yurttaş doğru anlamış ve yanıtlamış.
Bende sorunu şöyle çözdüm, alternatif olmuş olur.

Private Sub Workbook_Open()
a = Split(ActiveWorkbook.Name, "-")
Sheets("Sayfa1").Select
Range("A1") = Trim(a(0))
End Sub

 

[Sa.NaL]

çok tşk ederim necdet bey sizede buda oldu