kod yazımında 'yanında' tanımlaması...

[aliakgul]

Merhaba arkadaşlar,"LİSTE" adlı sayfayı yeni bir çalışma kitabına kopyalayıp "ydk1"adıyla kaydediyorum.Kayıt yeri olarak belirtilen 'D:\TES\TSS\' dizinlerin değişken olma durumu var .Ben de onun için, sabit bir dizin yerine mevcut çalışma kitabının yanına şeklinde tanımlama yapmak istiyorum.Bunun için 'ThisWorkbook.Path' tanımlamasını kullandım ama sonuç alamadım.
Yedek alırken 'yedek1' adlı dosyayı mevcut çalışma kitabının yanına kaydetsin istiyorum.Teşekkür ederim.....
*****************************************************************
Dim a As String
a = "D:\TES\TSS\" & "ydk1.xls"
If Not Dir(a) = "" Then
If MsgBox("Bu konumda '" & "ydk1" & "' adlı dosya zaten var. Değiştirmek ister misin?", vbInformation + vbYesNoCancel) = vbYes Then
Application.DisplayAlerts = False
Else
Exit Sub
End If
End If
Sheets("LİSTE").Copy
ChDir "D:\TES\TSS"
ActiveWorkbook.SaveAs Filename:="D:\TES\TSS\ydk1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close

**********************************************************
İkinci bir soru:
If MsgBox("Belge yazılsın mı?", vbYesNo) = vbNo Then
"""Evet" durumunda belge yazdırılır""""""
Peki, hayır durumunda başka bir görev tanımlamak istesek nasıl uyarlamalıyız?
örneğin evet durumunda application.Run "Yaz"
hayır durumunda application.Run "sil" görevlerini tanımlarmısınız?

 

[hsayar]

http://www.excel.web.tr/showthread.php?t=39096
linkindeki ilk mesaj dosyanın olduğu gibi yedeğini alır soruya göre düzenlemek isterdim ancak çok yorgunum

 

[aliakgul]

**********************************************************
İkinci bir soru:
If MsgBox("Belge yazılsın mı?", vbYesNo) = vbNo Then
"""Evet" durumunda belge yazdırılır""""""
Peki, hayır durumunda başka bir görev tanımlamak istesek nasıl uyarlamalıyız?
örneğin evet durumunda application.Run "Yaz"
hayır durumunda application.Run "sil" görevlerini tanımlarmısınız?

Sevgili hsayar, ilgin için teşekkür ederim, gece yarısına kadar ekrana öylece baktım durdum ama sonunda sorunumu çözdüm.
Alıntı olarak eklediğim soruyla birlikte bir soru daha:
userformdaki düğme ya da textboxlar üzerine imleç gelince açılan bilgi mesajı (formun girişinde başlıklar üzerine gelindiğinde olduğu gibi) eklemek mümkün müdür? Ör.:Kullanıcı imleç ile bir düğme üzerine gelince açılan mesaj, o düğmenin görevini bildirsin. İlgilenen arkadaşlara şimdiden teşekkür ederim...

 

[Orion1]

İlgili nesnenin Properties'ten ControlTipText kutusuna istediğiniz açıklamayı yazabilirsiniz.
Ekli dosyayı inceleyiniz .
Herhangi bir nesnenin üzerinde mausun imlecini bir süre tutunuz