Açıklama içeriğinin yan satıra getirilmesi

[use2000]

Merhabalar;

a1 hücresinin açıklamasında yazanların b1 hücresine veri olarak gelmesini istiyorum. Bunu nasıl yapabilirim? Ekte mevcut.

Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip dener misiniz?

Sub AciklamaAl()
Sub AciklamaAl()
Dim i As Long
For i = 1 To [a65526].End(3).Row
    Cells(i, "B") = Replace(Cells(i, "a").Comment.Text, Chr(10), "")
Next i
End Sub

 

[use2000]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip dener misiniz?

Sub AciklamaAl()
Sub AciklamaAl()
Dim i As Long
For i = 1 To [a65526].End(3).Row
    Cells(i, "B") = Replace(Cells(i, "a").Comment.Text, Chr(10), "")
Next i
End Sub

Modüle ekle derken sayfa1 üzerindeyken kod görüntüle yaptım ve yazdıklarınızı kopyaladım ama olmadı. Makro kaydet dedim makroya yazdıklarınızı kaydettim yine olmadı. Nasıl yapmalıyım?

Teşekkürler

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz.

Sub AciklamaAl()
Sub AciklamaAl()
Dim i As Long
For i = 1 To [a65526].End(3).Row
    Cells(i, "B") = Replace(Cells(i, "a").Comment.Text, Chr(10), "")
Next i
End Sub

 

[use2000]

Kodu çalıştırmayı başarabildim ancak burada açıklamayı yazanın adı da geliyor. Bu yazan kısmı olmadan sadece açıklama olan kısmını alamaz mıyız?

 

[tahsinanarat]

Sub aktar()
Application.ScreenUpdating = False
On Error Resume Next
For sut = 2 To 12 Step 2
For sat = 3 To Cells(65536, sut).End(3).Row
Cells(sat, sut + 1) = Cells(sat, sut).Comment.Text
Next
Next
End Sub

 

[use2000]

Sub aktar()
Application.ScreenUpdating = False
On Error Resume Next
For sut = 2 To 12 Step 2
For sat = 3 To Cells(65536, sut).End(3).Row
Cells(sat, sut + 1) = Cells(sat, sut).Comment.Text
Next
Next
End Sub

Teşekkür ederim Tahsin Bey. Ancak uyguluyorum sonuç vermiyor.

 

[Necdet]

Merhaba,

Kodu aşağıdaki şekilde değiştirerek kullanabilirsiniz.

Sub AciklamaAl()
Dim i As Long
Dim a() As String
For i = 1 To [a65526].End(3).Row
    Cells(i, "B") = Split(Cells(i, "A").Comment.Text, Chr(10))(1)
Next i
End Sub

 

[use2000]

Necdet Bey çok teşekkür ediyorum. Süper..

Merakımı af buyurun.Bu kodları nasıl yazıyorsunuz? Yani balık tutma olayını öğretseniz çok sevinirim )

 

[Necdet]

Necdet Bey çok teşekkür ediyorum. Süper..

Merakımı af buyurun.Bu kodları nasıl yazıyorsunuz? Yani balık tutma olayını öğretseniz çok sevinirim )

Bu forumu izleyerek ve ustaların yaptıklarını inceleyerek.

Excel Dersanesini ve ilginizi çeken mesajları inceleyiniz. Apalamadan yürümek olmuyor.

 

[use2000]

Bu forumu izleyerek ve ustaların yaptıklarını inceleyerek.

Excel Dersanesini ve ilginizi çeken mesajları inceleyiniz. Apalamadan yürümek olmuyor.

Çok merak ettiğim bir şey; makro yaptıklarımızı kaydederek daha sonra bunların tekrarlanmasını yapıyor. Ben tüm formülleri inceledim ancak açıklamaal formülünü göremedim. Bunu nasıl yapıyorsunuz. Lütfen

 

[tahsinanarat]

Dosyanız ekte

1 den 12 sutun arasında bulunan açıklamaları sağ tarafdaki sutuna yazdırır,dosyanız ekte.

 

[use2000]

1 den 12 sutun arasında bulunan açıklamaları sağ tarafdaki sutuna yazdırır,dosyanız ekte.

Tahsin Bey ilginiz ve yaptıklarınız için çok teşekkür ederim.

 

[haydaravsar]

Arkadaşlar merhaba,
Buna benzer bir sorun yaşıyorum, yardımcı olursanız çok sevinirim.
Bir hücrenin içerisindeki değeri ve hücrenin açıklamasını farklı bir hücreye taşıtmak istiyorum. Örneğin A2 hücresinin içeriğini ve açıklamasını A4 hücresine taşımak için A4 hücresine =A2 yazdığımda sadece A2'nin içeriği geliyor A4'de, açıklaması gelmiyor. Ben hücre içeriği ile birlikte hücre açıklamasınında gelmesini istiyorum.
Bu arada bunu binlerce hücreye uygulayacağım ve A2'deki açıklama değiştiğinde A4'deki açıklamanın da değişmesi gerekiyor.
Şimdiden teşekkürler.

 

[legendtr]

SAYIN HOCALARIM
makroda ve forumda yeniyim elimde bulunan 3000 satır üzeri bir excel dosyası içindeki açıklamaları yan satıra aktarmak istiyorum fakat konuda bulunan NECDET BEYE ait örnek dosya aralarda boş satır (yani açıklama olmayan satır olunca) çalışmıyor yardım acil tarafından bekliyorummmm

iyi çalışmalar sağlık ve esenlikle kalın

 

[Ömer BARAN]

Aşağıdaki konuda Levent Menteşoğlu'nun 5 no'lu mesajda yazdığı koda bir bakın isterseniz.
http://www.excel.web.tr/f48/hucredeki-acyklamayy-yan-hucreye-aktarmak-t14871.html

 

[legendtr]

Sayın Ömer.Baran Beyy kusura bakmayın kodu aldım sayfadan fakat odülmü yoksam workbook mu yoksam sayfa yamı yapıştıracağımı anlayamadım yapıştırdım makro yu çalıtırm fakat bi değişiklik olmadı

 

[legendtr]

Gecenin bu saatinde işimin hal olması mutluluğuyla "Necdet Yeşertener" hocamın #2 nolu mesajındaki koda...

Sub AciklamaAl()
On Error Resume Next
Dim i As Long
For i = 1 To [a65526].End(3).Row
Cells(i, "B") = Replace(Cells(i, "a").Comment.Text, Chr(10), "")
Next i
End Sub

uzun araştırmalarım sonucunda belki çok basit ama kırmızı satırdaki kodu ekleyerek %99 alıntı olsa da bi kod çalıştırmayı başarabildim...

birilerinin işine yaraması dileğiyle...

Tüm EXCEL.WEB.TR ailesine hayırlı geceler...



iMedya Arşiv Hizmetleri ve Tasarım Atelyesi © 2013

 

[Necdet]

Gecenin bu saatinde işimin hal olması mutluluğuyla "Necdet Yeşertener" hocamın #2 nolu mesajındaki koda...

Sub AciklamaAl()
On Error Resume Next
Dim i As Long
For i = 1 To [a65526].End(3).Row
Cells(i, "B") = Replace(Cells(i, "a").Comment.Text, Chr(10), "")
Next i
End Sub

uzun araştırmalarım sonucunda belki çok basit ama kırmızı satırdaki kodu ekleyerek %99 alıntı olsa da bi kod çalıştırmayı başarabildim...

birilerinin işine yaraması dileğiyle...

Tüm EXCEL.WEB.TR ailesine hayırlı geceler...



iMedya Arşiv Hizmetleri ve Tasarım Atelyesi © 2013

Kutlarım, böylesi öğrenmek daha kalıcı oluyor.

 

[legendtr]

Esteğfirüllah Sayın Necdet Hocam izinizde ilerliyoruz...

İlgi ve alakanıza teşekkür eder sayın hocam yol gözterici çalışmalarınızın devamını dilerim

iMedya Arşiv Hizmetleri ve Tasarım Atelyesi © 2013