Korumalı Sayfa > Sırala

[Baggwell]

Korumalı sayfada sırala özelliğini aktif etmeme rağmen bu uyarıyla karşılaşıyorum

Nasıl düzeltebilirim

 

[Murat OSMA]

Resimde nasıl düzeltebileceğiniz açıkça belirtilmiş.

 

[Baggwell]

Hayır hocam bu seferde sayfa korumasını açarsam eklediğim resimler kayboluyor .)

örneğin bir satır silmek istediğimde satırı seçiyorum ama sayfadaki resimler 3'er 5'er siliniyor

Sayfa koruması olması lazım

 

[Baggwell]

Sırala özelliğini aktif edince uyarı veriyor,

Deaktif edince hiç tepki vermiyor

Aynı şekilde satırları sil seçeneğini de aktif ediyorum ama silemiyorum

 

[Baggwell]

Çözdüm hocam, o bölümdeki hücrelerin kilidini kaldırmam gerekiyormuş

tek problemim var onuda haftalardır bir türlü çözüm bulamıyorum lütfen yardım edin

Resimleri sadece kendi bilgisayarımda görebiliyorum.
Karşı bilgisayarda resim bulunamadı diye gösteriyor.

 

[Murat OSMA]

Çünkü resimler sizin bilgisayarınızdadır..

 

[Baggwell]

Çünkü resimler sizin bilgisayarınızdadır..

Evet haklısınız fakat çok ilginç bir fark var çözemediğimiz.

Karşıdaki bilgisayarda excel 2003 var, o herhangi bir resim ekleyip bana gönderiyor (bende olmayan resim) açılıyor.

ben ise excel 2013 kullanıyorum, aynı dosyanın üzerine aynı şekilde resim ekliyorum. Onda açılmıyor.

Bu dosyayı 3. bir şahısa göderiyoruz. excel 2003 ile eklenen resim görünüyor, hemen altında excel 2013 ile eklenen resim bulunamadı diyor

böyle ilginç bir durumla karşılaştınız mı daha önce

 

[Murat OSMA]

Yok hayır karşılaşmadım. Başıma gelse belki farklı bir yolla çözerim ama şimdilik ikiniz de aynı versiyonu kullanmayı bir deneyin diyebilirim. Bu olay sadece resimlerde mi ortaya çıkıyor yoksa herhangi bir şekil eklediğinizde de aynı durum söz konusu mu ? Gelişmiş menüsündeki ayarlara bir bakabilirsiniz. Aradığınız yanıt orada olabilir. Hem başıma gelmediği için hem de 2013 kullanmadığım için net bir cevap veremiyorum

İyi akşamlar.

 

[Baggwell]

Tam dediğiniz gibi şekil eklediğimde de aynı sorunla karşılaşıyorum. Bunun çözümü olarak şekilleri kilitleyip koruma altına aldım.

Fakat resimlerde koruma altına alınca bu seferde sıralama yapınca veriler sıralanıyor resimler sabit kalıyor .)

Ayrıca excel 2013 lisanslı olarak kullanıyorum, yasal olmasa hadi dicem bir ihtimal..

Resmi "Kes > Özel yapıştırma Resim (M) " olarak yaparsam karşı bilgisayarda resimler açılıyor. Fakat 7-8 sayfa ve her sayfada 50-150 arası resim var.

Bunu tek tek yapmak mümkün değil kaybedilen zamana yazık..

 

[Baggwell]

"Resmi ctrl +x > özel yapıştır Resim (M)" bu işlemi uyguladığımda aradaki farklılıklar böyle

Mavi olan normal resim özellikleri, karşı bilgisayarda açılmıyor.

Kırmızı olan ise Özel yapıştır dediğim zaman olan özellikleri, karşı bilgisayarda açılıyor

Ama tüm resimlere aynısını yapamıyorum

 

[Murat OSMA]

Makro Kaydet'e basın.
Bir resim üzerinde dediklerinizi yapın.
İşlemleriniz bittikten sonra Kaydı Durdur'a basın.
Alt + F11 tuşlarına birlikte basın.
Soldaki Module1' üzerinde çift tıklayın.
Modül'deki kodları bize yollayın.
Tüm resimler için olacak şekilde ayarlarız.

 

[Murat OSMA]

Ne oldu yapamadınız mı yoksa çözülecek diye mi korkuyorsunuz ? :dusun: :dusun:

Birazdan çıkacağım bilginiz olsun.

 

[Baggwell]

Hemen yapıyorum hocam mesajınızı biraz geç fark ettim kusura bakmayın .)

keşke çözülse başka dileğim yok şuan için

 

[Baggwell]

Sub ResimleriKaydet()
'
' ResimleriKaydet Makro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Cut
    Range("B2").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Cut
    Range("B3").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Selection.Cut
    Range("B4").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    Selection.Cut
    Range("B5").Select
    ActiveSheet.Pictures.Paste.Select
End Sub

 

[Murat OSMA]

Bu resimler tek sayfada mıydı ?

 

[Baggwell]

Bu resimler tek sayfada mıydı ?

Evet tek sayfada toplanıyor

Bu arada resimleri makro ile çekiyorum. A1 hücresindeki veriye göre klasörden resim otomatik geliyor.

 

[Murat OSMA]

İkinci yazdığınız beni ilgilendirmiyor.

Dosyanızın bir yedeğini alın ve onun üzerinde şu kodları bir deneyin;

Sub ResimleriKaydet()
    Dim Rky As Integer, resim As Shape
    a = 2
    For Each resim In ActiveSheet.Shapes
        resim.Cut
        Cells(a, 2).Select
        ActiveSheet.Pictures.Paste.Select
        a = a + 1
    Next resim
    Set resim = Nothing: a = Empty
End Sub

 

[Baggwell]

OLDUUUUUUU

ama ufak bir sorun kaldı geriye

tüm resimler 1 satır yukarıya kayıyor

 

[Baggwell]

Tekrar boş bir sayfada denedim bu seferde resimler 1 satır yukarı kaydı

ama resimler karşı bilgisayarda açılıyor şuan ona seviniyorum daha çok .)

 

[Murat OSMA]

İyi ilerleme var.

a = 2 deki 2 yi 3 yapıp denediniz mi ?
2. satırdan itibaren yapıştırmaya başladım. Hangi satırdan itibaren olmasını isterseniz o satırı a = ? buraya yazın.