Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-01-2018, 01:01   #11
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,844
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Dosyanızda gerçek kişisel bilgilerin olduğunu düşündüğüm için Ömer beyin uyarısı ile kaldırdım.

Lütfen kimlik numaraları yerine sanal numaralar yazarak dosyanızı foruma ekleyiniz.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2018, 14:01   #12
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Sayın AYHAN sağ olsun.

Gerçek veriler olduğunu düşündüğüm (bazı kontroller yaptım elbette) özel bilgiler içeren dosyanın kaldırılması yerinde oldu.

Zira belgede TC Kimlik Numaraları/Ad Soyad/adres/telefon vs gibi bilgiler mevcut idi.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-02-2018, 14:18   #13
muhammethezer
Altın Üye
 
muhammethezer kullanıcısının avatarı
 
Giriş: 12/02/2006
Şehir: istanbul
Mesaj: 273
Excel Vers. ve Dili:
excel 2013
Varsayılan Yardım Rica Ediyorum.

Merhaba Ömer Hocam, Hassasiyetiniz için çok teşekkür ediyorum. Liste üzerinde bulunan satırları kaldırmadan yollamışım. Özür diliyorum. Daha dikkatli olacağım.

Yukarıda yapmış olduğunuz kodu benim bir çalışmamda kullanmak istiyorum. Ancak, Benim yapmak istediğim hücre içerisinde yazılı olan ismin "TABLO" sayfası "H" kolonunda bulunan adresi Açıklamaya getirmesini istiyorum. "TABLO" sayfasında bilgi yoksa "LİSTE" sayfasına Açıklama eklemesin.

Yardımcı olabilir misiniz? Teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsm Takvim-Deneme.xlsm (224.3 KB, 5 Görüntülenme)
__________________
2003 türkçe
Barışın hakim oldugu bir dünya için
muhammethezer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-02-2018, 15:01   #14
muhammethezer
Altın Üye
 
muhammethezer kullanıcısının avatarı
 
Giriş: 12/02/2006
Şehir: istanbul
Mesaj: 273
Excel Vers. ve Dili:
excel 2013
Varsayılan vba kodu ile hücreye otomatik açıklama ekleme mümkün mü

Alıntı:
muhammethezer tarafından gönderildi Mesajı Görüntüle
Merhaba Ömer Hocam, Hassasiyetiniz için çok teşekkür ediyorum. Liste üzerinde bulunan satırları kaldırmadan yollamışım. Özür diliyorum. Daha dikkatli olacağım.

Yukarıda yapmış olduğunuz kodu benim bir çalışmamda kullanmak istiyorum. Ancak, Benim yapmak istediğim hücre içerisinde yazılı olan ismin "TABLO" sayfası "H" kolonunda bulunan adresi Açıklamaya getirmesini istiyorum. "TABLO" sayfasında bilgi yoksa "LİSTE" sayfasına Açıklama eklemesin.

Yardımcı olabilir misiniz? Teşekkür ederim.
Yardımcı olabilir misiniz? Teşekkür ederim.
__________________
2003 türkçe
Barışın hakim oldugu bir dünya için
muhammethezer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2018, 00:19   #15
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,844
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Açıklama_Ekle()
    Dim S1 As Worksheet, S2 As Worksheet, Veri As Range
    
    Set S1 = Sheets("LİSTE")
    Set S2 = Sheets("TABLO")
    
    For Each Veri In S1.Range("B6:AF35")
        On Error Resume Next
        Veri.Comment.Delete
        On Error GoTo 0
        If Veri.Value <> "-----" Then
            If Veri.Value <> "" Then
                Set Bul = S2.Range("E:E").Find(Veri.Value, , , xlWhole)
                If Not Bul Is Nothing Then
                    Veri.AddComment Bul.Offset(0, 3).Value
                    Veri.Comment.Visible = False
                End If
            End If
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2018, 17:08   #16
muhammethezer
Altın Üye
 
muhammethezer kullanıcısının avatarı
 
Giriş: 12/02/2006
Şehir: istanbul
Mesaj: 273
Excel Vers. ve Dili:
excel 2013
Varsayılan

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Açıklama_Ekle()
    Dim S1 As Worksheet, S2 As Worksheet, Veri As Range
    
    Set S1 = Sheets("LİSTE")
    Set S2 = Sheets("TABLO")
    
    For Each Veri In S1.Range("B6:AF35")
        On Error Resume Next
        Veri.Comment.Delete
        On Error GoTo 0
        If Veri.Value <> "-----" Then
            If Veri.Value <> "" Then
                Set Bul = S2.Range("E:E").Find(Veri.Value, , , xlWhole)
                If Not Bul Is Nothing Then
                    Veri.AddComment Bul.Offset(0, 3).Value
                    Veri.Comment.Visible = False
                End If
            End If
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan Ayhan Hocam,
Cevabınız için teşekkür ediyorum. Sayfaya Modül ekledim ve kodu çalıştırdım. Ancak, TABLO sayfasındaki E:E satırında bulunan ilk isme karşılık, LISTE sayfası B6 hücresindeki ilk isme getiriyor ve sonrasında "Veri.AddComment Bul.Offset(0, 3).Value" satırında hata uyarısı veriyor.

Bir de şu şekilde olabilir mi?
Örnek olarak;
20.Nisan kolunda 13.30-14.00 saatleri arasında 30 dakikalık kısımda bulunan kişilere
ait hücrelerin otomatik tek bir renk alması ve TABLO sayfası H:H kolonunda karşılık gelen hücredeki bilginin açıklama olarak gelmesini sağlayabilir misiniz?
Eklenmiş Dosyalar
Dosya Türü: xlsx Takvim.xlsx (24.8 KB, 1 Görüntülenme)
__________________
2003 türkçe
Barışın hakim oldugu bir dünya için
muhammethezer Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:55


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden