makro duzenleme yardim

[TIRYAKI1]

slm arkadaslar eklemis oldugum kod da isi=sh.Range("M1").Value & "-" & Format(Now, "yyyy") bolumunde nasil bir duzenleme yaparsam b12 hucresini gosterebilirim cunku bu haliyle kayit yaparken dosya ismini b12 den aliyor fakat arkasina 2016 yil atiyor b12 hucresinde zaten fatura numarasi 2016-0004 olarak otomatik degisken fatura numarasi var sonuc olarak kod bu haliyle 2016-0004-2016 oluyor uzerinde oynama yaptigimda kod hata veriyor
simdiden tesekurler.

Private Sub CommandButton4_Click()
Dim sh As Worksheet
Set sh = Worksheets("facture")
yol = ThisWorkbook.Path
isim = sh.Range("b12").Value & "-" & Format(Now, "yyyy")
sh.Select
sh.Range("A1:I60").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveWorkbook.Save
End Sub

 

[Ömer BARAN]

.......

Private Sub CommandButton4_Click()
........
isim = sh.Range("b12").Value[COLOR="Red"] & "-" & Format(Now, "yyyy")[/COLOR]
...........
End Sub

Merhaba.

Kırmızı kısmı silerek denedin mi acaba?

 

[TIRYAKI1]

Merhaba.

Kırmızı kısmı silerek denedin mi acaba?

Evet denedim ama bu defada asagida hata verdi

 

[Ömer BARAN]

Tekrar merhaba.

Ben aşağıdaki gibi denediğimde sorun yaşamadım.
B12 hücresindeki AD ile belgenin kendi bulunduğu dizine pdf belge oluşturuldu.
.

[FONT="Arial Narrow"]Private Sub CommandButton4_Click()
Dim sh As Worksheet
Set sh = Worksheets("facture")
yol = ThisWorkbook.Path
isim = sh.Range("b12").Value
sh.Select
sh.Range("A1:I60").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveWorkbook.Save
End Sub[/FONT]

 

[Ömer BARAN]

Mükerrer cevabı sildim.
Nedenini anlayamadım aynı cevap iki kez gönderildi.

 

[TIRYAKI1]

Tekrar merhaba.

Ben aşağıdaki gibi denediğimde sorun yaşamadım.
B12 hücresindeki AD ile belgenin kendi bulunduğu dizine pdf belge oluşturuldu.
.

[FONT="Arial Narrow"]Private Sub CommandButton4_Click()
Dim sh As Worksheet
Set sh = Worksheets("facture")
yol = ThisWorkbook.Path
isim = sh.Range("b12").Value
sh.Select
sh.Range("A1:I60").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

ActiveWorkbook.Save
End Sub[/FONT]

mehaba hocam dun cok defa denedim ama hep hata aldim ama su an calisti ben yalnis yapmisim demekki tesekur ederim ilginize