makronun otomatik çalısması

[kneehot]

herkese kolay gelsın.arkadaslar asagıdakı makroyu dosyanın thisworkbook sayfasına yapıstırdım dosyayı kaydedıp kapattım.actıgımda makro calısmıyor kendım calıstırınca devreye gırıyor.bunun dosya acıldıgı anda calısmasını ve ıstedıgım dosyayıda acmasını nasıl saglarız.yardımlara tesekkurler.

Function WorkbookOpen(WorkBookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkBookNotOpen:
End Function

Sub AA()
If Not WorkbookOpen("FİYATLAR.xlsm") Then
Workbooks.Open "FİYATLAR.xlsm"
End If
End Sub

 

[hamitcan]

Module1 içine aşağıdaki kodu ekleyin.

Public Function WorkbookOpen(WorkBookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkBookNotOpen:
End Function

ThisWorkBook kısmına aşağıdaki kodu ekleyip çalıştırın.

Private Sub Workbook_Open()
If Not WorkbookOpen("FİYATLAR.xlsm") Then
Workbooks.Open "FİYATLAR.xlsm"
End If
End Sub

 

[kneehot]

Module1 içine aşağıdaki kodu ekleyin.

Public Function WorkbookOpen(WorkBookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkBookNotOpen:
End Function

ThisWorkBook kısmına aşağıdaki kodu ekleyip çalıştırın.

Private Sub Workbook_Open()
If Not WorkbookOpen("FİYATLAR.xlsm") Then
Workbooks.Open "FİYATLAR.xlsm"
End If
End Sub

sayın hamıtcan ılgınıze cok tesekkurler dedıgınızı yaptım ama run-time error 1004 FİYATLAR.xlsm bulunamadı dıyor aynı klasor ıcınde ve yazılısıda dogru.

 

[hamitcan]

Dosya yolunu belirtmeniz gerekiyor zannedersem.

C:\FİYATLAR.xlsm

 

[kneehot]

dosya yolunu belirtmeniz gerekiyor zannedersem.

c:\fiyatlar.xlsm

evet dedıgınız gıbı yaptım duzeldı.cok tesekkur ederım.

 

[mekanikçi]

Private Sub Worksheet_Change(ByVal Target As Range)
Static veri()
Static Say As Integer
Dim Sorgu As String
If Target.Address = "$A$1" Then
Application.EnableEvents = False
On Error Resume Next
If IsError(Application.Match(Target.Value, veri, 0)) Then
On Error GoTo 0
Say = Say + 1
ReDim Preserve veri(1 To Say)
veri(Say) = Target.Value
Else:
Sorgu = MsgBox("Bu veriyi daha önce kullandınız." & vbCrLf & "Devam etmek istiyormusunuz?", vbCritical + vbYesNo, "Mükerrer Kayıt")
If Sorgu = vbNo Then Target.Value = Empty
End If
End If
Application.EnableEvents = True
End Sub





bu kodu çalışma kitabına makro olarak ekldim ama güvenlikle ilgili uyarı mesajı geldi ve makrolar devre dışı bırakıldı dedi.düşük güvenlik ve güvenilen yayımcıların hepsini işaretlememe rağmen çalıştıramıyorum..makro çalıştırmak bukadar zor mu arkadaşlar? ayrıca daha sonra çalışmayan bu makroyu silemiyorum.sil yazısı aktif olmuyor.aynı makroyu defalarca kopyaladım ama yinede çalışmadı.Bana sıfırdan bu makaroyu nasıl çalıştıracağımı anlatabili misiniz?
Ayrıca bu makro çalışma kitabındaki ilgili tüm sayfalarda aktif oluyor mu?Çalıştıramadığım için hangi sayfada aktif hangisinde çalışmıyor bilmiyorum
teşekkürler

 

[hamitcan]

bu kodu çalışma kitabına makro olarak ekldim ama güvenlikle ilgili uyarı mesajı geldi ve makrolar devre dışı bırakıldı dedi.düşük güvenlik ve güvenilen yayımcıların hepsini işaretlememe rağmen çalıştıramıyorum..makro çalıştırmak bukadar zor mu arkadaşlar? ayrıca daha sonra çalışmayan bu makroyu silemiyorum.sil yazısı aktif olmuyor.aynı makroyu defalarca kopyaladım ama yinede çalışmadı.Bana sıfırdan bu makaroyu nasıl çalıştıracağımı anlatabili misiniz?
Ayrıca bu makro çalışma kitabındaki ilgili tüm sayfalarda aktif oluyor mu?Çalıştıramadığım için hangi sayfada aktif hangisinde çalışmıyor bilmiyorum
teşekkürler

Bence ne yapmak istediğinizi kısaca belirtin ve örnek bir dosya ekleyin böylece çözüm daha kolay olacaktır.

 

[kneehot]

sayın hamıtcan ılgınıze cok tesekkurler dedıgınızı yaptım ama run-time error 1004 FİYATLAR.xlsm bulunamadı dıyor aynı klasor ıcınde ve yazılısıda dogru.

herkese selamlar.yukarıdakı makroya bır kod ekleyıp en son aktif kalacak dosyanın makroyu ekledıgım dosya olması saglanabılırmı.su anda fiyatlar dosyası satıslar dosyası acılınca otomatık olarak acılıyor ama satıslar dosyası altta kalıyor.makro calıstıktan sonra en ustte satıslar dosyasının gorunmesını ıstıyorum.yardımlara cok tesekkurler.

 

[kneehot]

Module1 içine aşağıdaki kodu ekleyin.

Public Function WorkbookOpen(WorkBookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkBookNotOpen:
End Function

ThisWorkBook kısmına aşağıdaki kodu ekleyip çalıştırın.

Private Sub Workbook_Open()
If Not WorkbookOpen("FİYATLAR.xlsm") Then
Workbooks.Open "FİYATLAR.xlsm"
End If
End Sub

ufak bır karısıklık oldu bahsı gecen makro yukarıdakıdır.