Ağda Makro

[ofbalki]

Sayın üstadlarım benim iki sorum var.

http://www.excel.web.tr/showthread.php?t=36797&page=2

1- linkindeki 36. mesajda bulunan programı, ağda paylaşıma açtığımız zaman, personel kayıt formundan kişiyi silmek istediğimizde silmiyor.

2-Aynı linkteki resimleri, ağda çalışırken anamakineden göstersin istiyorum. Nedeni: Ağdaki her kullanıcının bilgisayarına sevkresim klasörünü atmamak için. Bu durumda baya sıkıntı çıkaracak gibi görünüyor.

İlgilenen arkadaşlara şimdiden teşekkür ederim.

Herkesin Ramazan Bayramını tebrik ederim. En kötü gününüz bayram gibi olsun.

Selam ve Dua ile...

 

[Mahmut Kök]

Excel dosyası paylaşıma açıldığında, bazı makroların çalışmayacağı bilgisi microsoftun ilgili sayfasında yazmaktadır.Galiba buydu: Paylaşılan bir çalışma kitabında desteklenmeyen özellikler satını tıklayınız.

http://office.microsoft.com/tr-tr/excel/HP100968331055.aspx

 

[ofbalki]

Sayın Mesleki, o dediğiniz yer, çalışma sayfalarını silmekten bahsediyor.

Benim isteğim sadece bir satırı makro ile silmek.

Derdime derman olabilir misiniz?

 

[ofbalki]

Herkesin geçmiş bayramı mübarek olsun.

Arkadaşlar ben soruyu galiba yanlış sordum.

Bilgisayar adını, " & Environ("USERNAME") ya da " & ActiveWorkbook.BuiltinDocumentProperties("Last author") makrolarıyla yazdırabiliyoruz.

Acaba ağdaki ana bilgisayarın adını, kendi bilgisayarımızda hangi makro koduyla yazdırabiliyoruz?

Lütfen yardımcı olun acilen lâzım.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

CreateObject("WScript.Network").computerName

Not: Yanlış anlamışım bu kod kendi pcnizin adını belirler.

 

[Levent Menteşoğlu]

Aşağıdaki kod istediğiniz sonucu verecektir. (kaynak: www.xtremevbtalk.com )

Sub NetworkMapDrive()
Set WshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
DrivesStr = "Network drive Mappings:" & Chr(13)
For i = 0 To oDrives.Count - 1 Step 2
DrivesStr = DrivesStr & "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i + 1) & Chr(13)
Next
MsgBox DrivesStr
End Sub

Network ana sürücü harfi ve adını bulmak için bulmak için, sadece aşağıdaki kodda kırmızı renkli rakamı değiştirerekte sonuç elde edebilirsiniz.

CreateObject("WScript.Network").EnumNetworkDrives([B][COLOR=red]2[/COLOR][/B])

 

[ofbalki]

Sayın Levent bey kardeşim,

ilginize ve de cevabınıza teşekkürler.

Yukarıda verdiğiniz modülde, ana makinede paylaşıma açılan bütün klasörlerin listesini veriyor.

İkinci olarak verdiğiniz tek satırlık kodda ise paylaşılan klasörlerden bir tanesinin adını veriyor. Bu kodda D sürücüsünü gösterebilirmiyiz. Yoksa sadece D sürücüsünü mü paylaşıma açalım.

Burada benim asıl amacım, ekteki dosyada, resim yolunu ağda gösterebilmek. Program ağda çalışırken, her bilgisayara resim kılasörü atmak gerekiyor, buda baya sıkıntılı bi durum. Bir kaç kod bulup denedim ama, benim gibi bir amatörün içinden çıkabileceği bişey değil.

Image3.Picture = LoadPicture("D:\sevkresim\" & Sheets("Veri").Cells(1 + I, 5) & ".jpg") 'Veri sayfasındaki TC kimlik noyu gösteriyoruz
satırını ana makinaya yönlendirebilirmiyiz.

Birde Programı ağda paylaşıma açtığımda veri silme makrosu çalışmıyor.

Elimizi verdik, kolumuzu kurtaramıyoruz diye düşünmezseniz, bir el atarmısınız üstadım.

Geçmiş bayramınız mübarek olsun. Sevdiklerinizle birlikte nice güzel bayramlar geçirmeniz dileğiyle...