• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

windows 7 de makrolar çalışmıyor

A

acarselcuk1

Katılım
16 Temmuz 2006
Mesajlar
188
Excel Vers. ve Dili
xp profesional 2002
merhabalar ; arkadaşlar xp de yapılan ve çalışan makrolar Windows 7 nedense çalışmıyor. bu sorunun çözümü hakkında yardımcı olursanız çok memnun olurum. şimdiden ilgilenen tüm arkadaşlara teşekkür ederim.
 
çalışmayan makro aşağıdadır.

Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
sat = WorksheetFunction.CountA(Sheets("sayfa2").[a:a]) + 1
s1.Range("a" & sat) = "."
Set ekle = s1.Range("a" & sat).AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub

makroyu çalıştırdığımda açıklama oluşturulmuştur diyor. fakat sayfa 2 ye gittiğimde açıklamanın içi boş.
 
windows7 de bu makro neden çalışmıyor. hala bir cevap alamadım. lütfen arkadaşlar. yardımlarınızı bekliyorum. bu makroyu sayın leventm yapmıştı. sayfa 1 deki herhangi bir alanı mause ile seçip makroyu çalıştırınca sayfa 2 nin a sütünunun ilk boş satırına açıklama ekleyip mause ile seçili bölgenin resmini açıklamanın içine ekliyordu. baya bir işimi gördü fakat yeni bir bilgisayar aldım. işletim sistemi windows 7 . nedense bu makroyu tam olarak çalıtırmıyor. sayfa 2 ye açıklama ekliyor fakat açıklamanın içine resim eklemiyor. windows 7 den kaynaklı makroya farklı kodlarmı girmek gerekiyor onuda bilmiyorum.
 
Son düzenleme:
Varsayılan olarak win7 de "C:\" kök dizini altına dosya oluşturma izniniz yoktur. Bu izni ayarlayın veya başka bir disk bölümüne kaydedin.
 
hocam ilginizden dolayı teşekkür ederim. fakat dediğim gibi bu konularda pek bilgi sahibi değilim. bu makroyuda zaten levent hocam hazırlamıştı bana. ben daha önce xp de makroyu çalıştırıyordum ve sayfa 2 ye açıklama ekleyip içine seçili alanın resmini yapıştırıyordu. sadece bu kadar yani. bu kök dizini altına dosya oluşturma iznini nasıl ayarlarım bilmiyorum. mümkünse daha ayrıntılı bir şekilde nerden nasıl yapabileceğimi yazarsanız çok sevinirim. teşekkürler...,
 
C: üzerinde sağ klik ile resimde soldaki pencereye ulaşın. "Düzenle" butonuna basarak sağdaki pencereye ulaşın. Muhtemelen 4 adet hesap göreceksiniz. En alttaki kendi oturum hesabınız olacaktır. "Tam denetim" işaretleyerek "Tamam" diyerek kapatın.
 

Ekli dosyalar

  • Adsız.jpg
    Adsız.jpg
    73.4 KB · Görüntüleme: 22
zeki hocam dediğinizide yaptım fakat problem çözülmedi. açıklamayı 2.sayfaya atıyor fakat içine resimi eklemiyor.
 
Son düzenleme:
.

Kodda bulunan:

Kod: 
On Error Resume Next

satırını silin. Bakalım makro nerede, hangi satırda hata verecek, onu anlayalım.

.
 
.

Bu kodları deneyin.

Kod: 
Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sheet2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
MkDir "c:\aa\"

Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\aa\xresimx.gif"
grafik.Delete
sat = WorksheetFunction.CountA(Sheets("sheet2").[a:a]) + 1
s1.Range("a" & sat) = "."
Set ekle = s1.Range("a" & sat).AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\aa\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\aa\xresimx.gif"
RmDir "C:\aa\"
MsgBox "Açıklama oluşturulmuştur"
End Sub


.
 
hocam bu şekilde hiç açıklama oluşturmadı. xp dede oluşmadı windows 7 dede. ama yukarıdaki makro xp de oluyor. windows 7 de olmuyor..,
 
hocam özür dilerim. ben 2003 e eklemiştim. muhtemelen kod o sebeple çalışmamıştır. son gönderdiğiniz dosyayı açtım. şuan çalışıyor. elinize emeğinize sağlık. bu çalışma gerçekten işyerimizde benim yaptığım iş açısından çok önemli. yanlız bunun 2003 de çalışmama sebebi nedir ?
2003 ve window 7 de çalışabilir hale getirilebilirmi ? çünki ilk kod 2003 ve xp de çalışıyordu. sadece windows 7 de çalışmadı. bu haliyle işimi çok çok görüyor tabi. sadece nacizane merakım.
sonsuz sevgi ve saygılarımı sunar iyi çalışmalar dilerim. teşekkürler...,
 
.

Bu da Excel 2003.

Kodlarda hiç bir fark yok.

Win7'de çalışmadığına gelince, yukarıda Zeki Bey cevabı vermiş.

Varsayılan olarak win7 de "C:\" kök dizini altına dosya oluşturma izni vermiyor.

Ben kodlarda:

Kod: 
MkDir "c:\aa\"
.

ile bir dizin yaratıyorm.

Kod: 
Kill "c:\aa\xresimx.gif"
RmDir "C:\aa\"

kodları ile de yaratılan dosya ile dizin siliniyor.

Bu nedenle, verdiğim kodlar çalışır.

Ancak Sayfa isimlerine dikkat ediniz. Türkçe ve İngilizce olarak kodlardaki Sayfa / Sheet olarak uyarlama yapmanız gerekir.


.
 

Ekli dosyalar

yok hocam zaten sizin gönderdiğiniz kod win7 dede çalıştı. 2003 konusuna gelince benim çalışma sayfam sayfa2 diye yazıyordu. kodda Sheet2 olduğu için çalışmamış. yani hazır kodu bile eklerken dikkat etmemişim acemiliğime verin lütfen. :)

tekrar emeğinize sağlık. saygılar sunarım. iyi günler.
 
5 yıllık makro hortladı / ofis 2016 da makro çalışmadı

merhaba arkadaşlar.
ofis 2016 yükledim bilgisayarıma. ve aynı zamanda windows10
eski bilgisayarım ofis2013 ve windows 7 idi. eski bilgisayarımda çalışan makro şimdi çalışmıyor. geçmişte bir daha olmuştu ve kök dizin vs. konulardan bahsedilip eski makrom düzeltilmişti. işi bilen sizlerden ricam aşağıdaki kodu ofis 2016 ve windows 10 için uyarlayabilirmisiniz.

makronun işlevi: sayfa1 mause ile seçtiğim alanda makro çalıştırdığımda sayfa2 a stunundaki enson boş yere açıklama ekleyip, içine sayfa 1 deki mause ile seçtiğim alanın resmini yapıştırıyor.

Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
MkDir "c:\aa\"

Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\aa\xresimx.gif"
grafik.Delete
sat = WorksheetFunction.CountA(Sheets("Sayfa2").[a:a]) + 1
s1.Range("a" & sat) = "."
Set ekle = s1.Range("a" & sat).AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\aa\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\aa\xresimx.gif"
RmDir "C:\aa\"
MsgBox "Açıklama oluşturulmuştur"
End Sub

şimdiden teşekkürler.
 
hayır, malesef çözemedim. bilen arkadaşlardan yardım bekliyorum.
 
Merhaba,

Kodun başındaki On Error Resume Next ifadesini silip kodu F8 tuşuyla adım adım çalıştırın.

Hata oluşan satırı foruma yazın. Araştıralım.
 
bilgisayarım iş yerinde. evde windows 10 ve ofis 2016 yok. pazartesi dediğinizi yapıp bildireceğim. bu arada bilgisayarında windows 10 ve ofis 2016 olan arkadaş varsa deneyip buraya bildirebilirse çok memnun olurum. teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst