Hücre içine yazılan açıklamayı başka bi hücreye yazma

[modoste]

merhaba sayın hocalarım
bugün listemde çalışmalar yaparken bi soru aklıma takıldı
A1 hücresine yazılan açıklamayı B1 hücresine yazabilirmiyiz
soruyu sormama sebep olan olay ise
bir excel çalışma kitabımda 100 adet çalışma sayfam (sekme) var herbirinin şablonu aynı ve herbirinin C3 hücresinde firma adı yazılı fakar hücre içi açıklamasında adresler yazılı
benden şu istendi
firma adları ve yanlarında adreslerini belirten liste yap
eğer ben adresleri başka bi hüdreye yazsaydım dolaylı yada başka bi formülle kolaylıkla yazacaktım ama
şimdi nasıl yapabilirim
dosya eklemiyorum çünkü ana sorum şu A1 hücresinde açıklama var B1 hücresine bu açıklama notu nasıl formüllenir.

 

[İdris SERDAR]

Sub ShowCommentsNextCell()

  Application.ScreenUpdating = False

  Dim commrange As Range
  Dim mycell As Range
  Dim curwks As Worksheet
  
  Set curwks = ActiveSheet

  On Error Resume Next
  Set commrange = curwks.Cells _
      .SpecialCells(xlCellTypeComments)
  On Error GoTo 0

  If commrange Is Nothing Then
     MsgBox "no comments found"
     Exit Sub
  End If

  For Each mycell In commrange
     If mycell.Offset(0, 1).Value = "" Then
      mycell.Offset(0, 1).Value = mycell.Comment.Text
     End If
  Next mycell

  Application.ScreenUpdating = True

End Sub

Bu kodları kullanın.


Not:Kodlar alıntıdır.


.

 

[S.Yiğit]

Merhaba,

Alternatif olsun. Sn. Korhan Ayhan hocamın bir çalışmasını ekliyorum. Sanırım işinizi görür.

açıklama almak istediğinizde =AÇIKLAMA_AL(A1) yazmanız yeterli. A1 olan yeri kendi dosyanıza göre ayarlarsınız.

Function AÇIKLAMA_AL(Hücre As Range)
    Application.Volatile
    With Hücre
        If Not .Comment Is Nothing Then
            AÇIKLAMA_AL = .Comment.Text
        End If
    End With
End Function

 

[modoste]

sayın yurttaş hocam teşekkür ettim
bana asıl çizelgeyi gönderdiler ben asıl sorumu şimdi 2 seçenekli sormak istiyorum
çizelgenin özeti her sekme adı
M1 (Müşteri 1)
M2 (Müşteri 2)..............diye 99 tanedir

her sekmedeki aynı formatta tabloda A1 hücresi ile E1 hücresi birleştirilmş şekilde (firma adı uzun olacağından) olup firma ismi yazılmıştır. yani firma adı aslen A1 hücresindedir. Sekme adıyla, A1 hücresinde olan ad aynı değildir. Örneğin çalışma sayfası adı M1 ama A1 hücresindeki firma adı SEZER İNŞAAT. gibi.
M99 olan son sekmenin peşine özet diye bi sekme açıp
istek 1- özet sekmesinde A1:A99 (müşteriler 99 olduğundan) arasına sekme adlarını (M1,M2,M3...........)yazmak.Daha sonra dolaylı formülüyle firma adına geçiş yapabilirim
istek 2- özet sekmesinin B1:B99 arasına ise her bir sayfadaki (M1-M2...) A1 hücresine yazılmış hücre açıklamasını yazdırmak

çalışma sekmelerini başka bi sekmeye formüllü yapılamayacağını fonksiyonlarda sayın hocalarım anlatmıştı.

umarım anlatabilmişimdir hocam tablo çok boyutlu olduğundan gönderemiyorum

 

[İdris SERDAR]

sayın yurttaş hocam teşekkür ettim
bana asıl çizelgeyi gönderdiler ben asıl sorumu şimdi 2 seçenekli sormak istiyorum
çizelgenin özeti her sekme adı
M1 (Müşteri 1)
M2 (Müşteri 2)..............diye 99 tanedir

her sekmedeki aynı formatta tabloda A1 hücresi ile E1 hücresi birleştirilmş şekilde (firma adı uzun olacağından) olup firma ismi yazılmıştır. yani firma adı aslen A1 hücresindedir. Sekme adıyla, A1 hücresinde olan ad aynı değildir. Örneğin çalışma sayfası adı M1 ama A1 hücresindeki firma adı SEZER İNŞAAT. gibi.
M99 olan son sekmenin peşine özet diye bi sekme açıp
istek 1- özet sekmesinde A1:A99 (müşteriler 99 olduğundan) arasına sekme adlarını (M1,M2,M3...........)yazmak.Daha sonra dolaylı formülüyle firma adına geçiş yapabilirim
istek 2- özet sekmesinin B1:B99 arasına ise her bir sayfadaki (M1-M2...) A1 hücresine yazılmış hücre açıklamasını yazdırmak

çalışma sekmelerini başka bi sekmeye formüllü yapılamayacağını fonksiyonlarda sayın hocalarım anlatmıştı.

umarım anlatabilmişimdir hocam tablo çok boyutlu olduğundan gönderemiyorum

.

Küçük bir örnek dosya ile sorarsanız daha uygun olur.

Çünkü ben ne yapamak istediğinizi anlayamadım.

.

 

[modoste]

ekli tablo ve değişimler

ekleyeceğim tabloda dosya boyutu düşürmem için 5 tane sekme bıraktım hocam ve ÖZET sekmesinde Gri renkli yerlerin dolmasını istiyorum B sutununu formüllemenizi istemedim çünkü A sutunundaki sekme adlarını bulabilirsem DOLAYLI formülünden her bi çalışma tablosunun A1 hücresindeki adı formülle alabiliyorum
A ve C sutunundaki Gri renkli yerlerin dolmasını istiyorum

hocam makrolu çözümlerinizde değişecek hücreleri anlamak açısından kırmızı renkli yazabilirmisiniz kodu
o çizelgelerde aralarda sutun ekleme olunca değişime uğrayacak formüller

 

[İdris SERDAR]

ekleyeceğim tabloda dosya boyutu düşürmem için 5 tane sekme bıraktım hocam ve ÖZET sekmesinde Gri renkli yerlerin dolmasını istiyorum B sutununu formüllemenizi istemedim çünkü A sutunundaki sekme adlarını bulabilirsem DOLAYLI formülünden her bi çalışma tablosunun A1 hücresindeki adı formülle alabiliyorum
A ve C sutunundaki Gri renkli yerlerin dolmasını istiyorum

hocam makrolu çözümlerinizde değişecek hücreleri anlamak açısından kırmızı renkli yazabilirmisiniz kodu
o çizelgelerde aralarda sutun ekleme olunca değişime uğrayacak formüller

.

Dosyanız ekte.

Sadece makroyu çalıştırın. Her makroyu çalıştırdığınızda size tüm sayfalardaki istdiğiniz bilgileri içeren bir sayfaya yazacaktır.

Artık bundan sonrası size kalmış..

.

 

[modoste]

dosyayı kaydettim açtım makroları etkinleştir yazdım
fakat özet sekmesinde sonuçlar görünmedi

 

[İdris SERDAR]

dosyayı kaydettim açtım makroları etkinleştir yazdım
fakat özet sekmesinde sonuçlar görünmedi

.

Yazdıklarımı okumadınız herhalde...

Özet sayfasına bir şey yapılmıyor. Makroyu çalıştırdığınızda, bir sayfa ekleniyor. Siz bu sayfaya dayanarak. ÖZET sayfanızı ister formülleyin. İsterseniz eklenen sayfayı ÖZET sayfası olarak dizayn ederek (gereksiz satır ve sütunları silerek) yapın.


.

 

[modoste]

sayın hocam kusuruma bakmayın ama
basitçe anlatayım
kaydediyorum dosyayı açıyorum makroları etkinleştiri tıklıyorum ama benim size gönderdiğim hali ile aynı bi dosya çıkıyo yeni bi sekme ekleniyo dediniz ama göremiyorum
nerde hata yapıyorum

 

[İdris SERDAR]

sayın hocam kusuruma bakmayın ama
basitçe anlatayım
kaydediyorum dosyayı açıyorum makroları etkinleştiri tıklıyorum ama benim size gönderdiğim hali ile aynı bi dosya çıkıyo yeni bi sekme ekleniyo dediniz ama göremiyorum
nerde hata yapıyorum

.

Dosyayı yukarıda güncelledim. Dosyadaki düğmeye basın. Makro çalışacak.


.

 

[İdris SERDAR]

.

Konuyla ilgisi olmayan mesajlar, tarafımdan silinmiştir.

.

 

[reyuna]

Merhaba hocalarım,
Bu konuyla ilgili sorum şudur.Hücre içine yazılan açıklamayı başka bi hücreye yazma işleminin tam tersi. yani hücredeki bilgilerle işim bittiğinde sadece açıklama olarak kalsın istiyorum.
Hücredeki metni diğer bir hücreye açıklama olarak ekletme işlemi.
forumunuzdaki gayretleriniz gerçekten takdire şayan, tebrik ediyorum.

 

[Murat OSMA]

Merhaba, ek'teki örnekleri inceleyebilirsiniz;

 

[reyuna]

Murat hocam örnekleri inceledim güzel, ancak istediğim olay yoktur örneklerde.tam tersi var. tekrar edeyim. hücredeki değeri başka bir hücreye açıklama olarak yazdırma.bunu excelde yaptırabilirmiyiz?

 

[Murat OSMA]

Vardır vardır da kodları bilmediğiniz için göremediniz...

Şu kodları Sayfanın kod kısmına yazıp G6 hücresine bir veri giriniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "G6" Then Exit Sub
    On Error Resume Next
    Range("K6").AddComment
    Range("K6").Comment.Text Text:=CStr(Target.Value)
End Sub

 

[reyuna]

dediğiniz doğrudur kodları pek bilmiyorum.çok teşekkür ederim oldu. Ancak her hücre için ayrı bir kodmu yazmam gerekiyor?

 

[assenucler]

Teşekkür

Sayın Murat Osma,


Günaydın ve iyi hafta sonları.

Katkı ve paylaşımınız için teşekkürler.

Sevgi ve saygılar.

 

[Murat OSMA]

Günaydın Ahmey Bey, mutlu pazarlar.

 

[mbasoguz]

merhaba küçük bir yardım rica ediyorum

Merhaba,

Alternatif olsun. Sn. Korhan Ayhan hocamın bir çalışmasını ekliyorum. Sanırım işinizi görür.

açıklama almak istediğinizde =AÇIKLAMA_AL(A1) yazmanız yeterli. A1 olan yeri kendi dosyanıza göre ayarlarsınız.

Function AÇIKLAMA_AL(Hücre As Range)
    Application.Volatile
    With Hücre
        If Not .Comment Is Nothing Then
            AÇIKLAMA_AL = .Comment.Text
        End If
    End With
End Function

Merhaba hocam ben bu makroyu kullandım. modül olarak açtım. İlgili hücreye açıklama yazınca =AÇIKLAMA_AL(A1) formülünü yazdığım hücre kendini tıklamadan yenilemiyor. Benim için çok önemli bir konu yardımcı olursanız sevinirim. Yani düşünün ki açıklamayı değiştirdiğimde =AÇIKLAMA_AL(A1) formülünü yazdığım hücredeki değerlerinde anında değişmesini istiyorum.