Excel de açıklama kutucuklarının yerinin ve şeklinin değişmesi.

  • Konuyu başlatan Konuyu başlatan EMRAH82
  • Başlangıç tarihi Başlangıç tarihi

EMRAH82

Katılım
28 Tem 2022
Mesajlar
3
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar,
Bir adet server ımız var. Bu server'a 3 adet masa üstü bilgisayar ve iki laptop bağlanıyor. Excel 2013 versiyonunu kullanıyoruz.
Sorunumuz şudur ;
Excel de hücre içine açıklama ekliyoruz. Açıklama kutucuğunun içine tarih, kaç adet, ne kadara aldığımız ve kimden aldığımızı yazıyoruz. Kayıt edip çıkıyoruz. Eklediğimiz açıklama kutuları belli bir zaman sonra 10 cm, 20 cm yada 2-3 sayfa boyu aşağı yukarı yada açıklama kutucuğunun ebatı küçülüyor. Açıklama kutucuklarını açıklama düzelt seçeneğinden düzeltip kendi uygun yerine getirip kaydediyoruz. Ama belli bir zaman sonra yeniden bozulduğunu görüyoruz. Bu konuda bize yardımcı olabilir misiniz? İyi çalışmalar.
 
Aynı Ürün İkinciye Yazıldığında Uyarı Alma
Kapalı Dosyadan Koşullu ( İki Tarih Arası ) Veri Getirmek ( ADO )
Tarihe göre sırala Oylamaya göre sırala
Merhaba Sayın @EMRAH82 .

Ortak alandaki belgeyle ilgili hiç denemem olmadı ancak, aşağıdaki yöntem işe yarayacaktır diye düşünüyorum.

Server'da bulunan belge açıkken, ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin,
ardından VBA ekranında sol taraftan ThisWorkbook'a fareyle çift tıklayın ve sağdaki boş alana aşağıdaki kodu yapıştırın.
Belgeyi makro içerebilen olacak şekilde (*.xlsm veya *.xlsb uzantılı olabilir) kaydedin.

NOT:
-- Kod'da, işlem yapılacak İLGİLİ SAYFA ADINI gerçek belgenizdekine göre değiştirin.
-- Kod, açıklamayı ilgili hücrenin sağındaki hücrenin sol üst köşesinde konumlandırı,
-- Kod'da açıklama için öngörülen genişlik ve yüksekliği kendinize göre ayarlayabilirsiniz.
-- Belge, diğer bilgisayarlarda ilk kez açıldığında (bir defaya mahsus) makroların etkinleştirilmesi gerekir.

VBA: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Set alan = Sheets("[B][COLOR=rgb(132, 53, 52)]İLGİLİ SAYFANIN ADI[/COLOR][/B]").Cells.SpecialCells(xlCellTypeComments)

For Each hcr In alan
    With hcr.Comment.Shape
        .Left = hcr.[COLOR=rgb(36, 82, 105)][B]Offset(0, 1)[/B][/COLOR][B][COLOR=rgb(36, 82, 105)].Left[/COLOR][/B]
        .Top = hcr.[B][COLOR=rgb(36, 82, 105)]Offset(0, 1).Top[/COLOR][/B]
        .Width = [B][COLOR=rgb(43, 84, 44)]120[/COLOR][/B]: .Height = [B][COLOR=rgb(43, 84, 44)]80[/COLOR][/B]
    End With
Next

End Sub

.
 
Oyla 0 Olumsuz oyla
Öncelikle bilgi verdiğiniz için teşekkür ederiz. Vermiş olduğunuz yönergeleri uyguladık fakat kaydetme kısmında hata oldu yada biz hata yaptık. Ekran görüntüsünü ekliyorum. Yardımcı olabilirseniz seviniriz.
 

Ekli dosyalar

  • DOSYA 1..webp
    DOSYA 1..webp
    65.9 KB · Görüntüleme: 29
Oyla 0 Olumsuz oyla
Merhabalar,
Açıklamalarımız bu şekilde çok farklı yerlerde çıkıyor. Bu resim problemimizi daha iyi anlatıyor. Yardımcı olursanız seviniriz.
 

Ekli dosyalar

  • EXCEL PROBLEMİ.webp
    EXCEL PROBLEMİ.webp
    199.2 KB · Görüntüleme: 33
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt