Makro ile ana sayfaya yan sayfadan açıklama olarak bilgi ekleme

[burhancavus61]

Plan sayfasına BM-Loj. sayfasındaki bilgileri daire numarasına göre açıklama olarak alabilirmiyim. 1 hücre ekledim plan sayfasına. Fakat 200 e yakın daire var normalde silmek zorunda kaldım örnek eklerken. Plan sayfası aktif hücre değerine göre bilgi çekebilirsek ben yazdıkça açıklama eklemesini istiyorum olabilirse.

 

[burhancavus61]

Aktif hücre yazmıştım ama plan sayfasında aynı daire no olan tüm hücrelre açıklama yazmam gerekiyor.

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As Range, metin As String
If Not Intersect(Target, Range("D4")) Is Nothing Then
    Set bul = Sheets("BM-Loj.").Range("B:B").Find(Target.Value, , , xlWhole)
    If Not bul Is Nothing Then
        metin = metin & bul.Offset(, 1) & vbCrLf
        metin = metin & bul.Offset(, 3) & vbCrLf
        metin = metin & bul.Offset(, 8) & vbCrLf
        metin = metin + bul.Offset(, 11)
        Range("D4").Comment.Text Text:=metin
        If Len(metin) < 7 Then MsgBox "Kayıt Yok"
    Else
        MsgBox "Daire Yok"
    End If
End If
End Sub

 

[burhancavus61]

Ömer hocam plan sayfasını seçtiğimde hangi hücere daire numarası varsa tüm hücrelere bunu otomatik yapamazmıyız. Ben sadece bir hücre örnek yapmıştım sayfada 200 hücre var daire no yazılı olan. Plan sayfasında daire numarası eş olan hangi hücre varsa seçmeye ihtiyaç duymadan açıklamaları yapmam lazım. Sizin örneğiniz tek hücrede iş görüyor. D4 hücresine bağımlı olmadan tüm hücrelere göre yapmam lazım. İlk mesajımla sizi yanılmış olabilirim.

 

[ÖmerFaruk]

Hangi hücrelere yazacaksınız?
Unutmayın excelde milyar hücre var.
Söyleyinki kodlar sadece o aralıkta ve sadece o hücre için çalışsın
Mesela D4100 aralığında
D410, E4:E10, gibi

 

[burhancavus61]

B3:BQ54 olsun o zaman hocam

 

[ÖmerFaruk]

500 mesajı aşan bir burhanççavuş artık bu sorulara kendi çözüm bulmalı.
Bu bir serzeniştir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As Range, metin As String
If Not Intersect(Target, Range("B3:BQ54")) Is Nothing Then
    Set bul = Sheets("BM-Loj.").Range("B:B").Find(Target.Value, , , xlWhole)
    If Not bul Is Nothing Then
        metin = metin & bul.Offset(, 1) & vbCrLf
        metin = metin & bul.Offset(, 3) & vbCrLf
        metin = metin & bul.Offset(, 8) & vbCrLf
        metin = metin + bul.Offset(, 11)
        Target.Comment.Text Text:=metin
        If Len(metin) < 7 Then MsgBox "Kayıt Yok"
    Else
        MsgBox "Daire Yok"
    End If
End If
End Sub

 

[burhancavus61]

Hocam bende farkındayım hep fonksiyonlarla çözmeye çalıştım sorunlarımı. Makrolarıda fazla beceremedim. Ama şimdi bi eğitim almaya başladım sıfırdan işten vakit buldukça bu işi çözmek için elimden geleni yapacağım. Bazı temelleri bilmedikten sonra ne yapsak boş. Ama haklısınız çok geç kaldım.

 

[burhancavus61]

Hocam aşağıdaki satırda hata veriyor.

        Target.Comment.Text Text:=metin

 

[burhancavus61]

Hocam tamam çalışıyor ben manuel yazmaya çalıştığım için hata verdi. Veri doğrulama ile pencereden seçince çalıştı.

 

[ÖmerFaruk]

Mevcutta boş hücrelerde açıklama yok.
Yeni hücreleri tanımlarken sıkıntı çıkacak haliye

Target.Comment.Text Text:=metin satırının hemen üstüne aşağıdakini ekleyin.
If Target.Comment Is Nothing Then Target.AddComment

 

[burhancavus61]

Plan sayfasını seçtiğimde hücreden değer seçmeden açıklamaları yazamazmıyız.

 

[ÖmerFaruk]

Şu an düzelmiş olması lazım.
Örneğin şu an boş olan bir hücreye ( B3:BQ54 aralığındaki) 1 yazın. çalışacaktır
BM-Loj sayfasındaki listeyi doldurun daha rahat göreceksiniz

 

[burhancavus61]

Hocam son haliyle B3:BQ54 aralığına daire no yazınca kod çalışıyor, zahmet veriyorum biliyorum fakat Plan sayfasını seçtiğimde hücre seçmeden B3:BQ54 aralığında olan daire numaralarının açıklamalarını toplu güncelleyemezmi?

 

[ÖmerFaruk]

Yazalım yazmasına da hangi sırayla, hangi formatta. birer satır birer sütun atlayarak mı vs vs. Belirtin yazalım.

 

[burhancavus61]

Plan sayfasının orjinalini ekledim.

 

[ÖmerFaruk]

Bu kadar da değil Burhan abim.
Olabildiğince düzensiz bir tablo. Ben farklı bir hayal kurmuştum.

Listede 80-E/5 var ......Planda 80/E var
Listede 86/1 var............Planda 86(Pinus) var

Grup olanlarda alt numaralar hep altında ya da hep sağında değil. Garip garip değişiklikler var. Nasıl bir algoritma yazalım ki

 

[burhancavus61]

hocam bu sayfayı bir düzene sokmaya çalışacağım tabloyu ben hazırlamadım. son yazdığınız kodu kullanırım. yazdığınz kod bile kafi sağolun. ben diğer işlemlerimi halledeyim. bu arada söz vba öğreneceğim. yanınızdan geçemeyiz ama niyet ettim bi kere.