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 15-01-2018, 15:35   #1
Etamustafa
Altın Üye
 
Giriş: 12/11/2016
Şehir: Istanbul
Mesaj: 121
Excel Vers. ve Dili:
Excel 2016
Varsayılan vba kodu ile hücreye otomatik açıklama ekleme mümkün mü

Demek istedigim iki sayfa var mesai ve datamesai.
data mesai ye bilgi girişi yapıyoruz 1 tarih 2 sürücü ismi 3 atılan sefer 4 açıklama ;
Açıklama kısmına seferleri eksik atarsa nedenini yazıyoruz şu sebepten eksik atmıştır açıklamasını sonrada biz Mesai sayfasına giriyoruz ör/ 05.01.2018 mustafa kara sefer sayısı 8 buluyoruz datamesai yazıdıgımız bu açıklamayı orayada açıklama ekle diyerek aynı yazıyı kopyalıyoruz

Açıklamayı ilk yazdıgımız otomatikmen ön yüze otomatik olarak açıklama eklesin kendini.

Örnek dosya ekli Açıklamada yaptım mesaidata j58 açıklama yazdım
şimdiden teşekkür ederim ilginiz için.
Eklenmiş Dosyalar
Dosya Türü: xlsx SEFER DENEME.xlsx (260.9 KB, 23 Görüntülenme)
Etamustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-01-2018, 23:00   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,404
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Begenizı açın, alt taraftan MESAİDATA sayfasının adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.

MESAİDATA sayfası I sütunundaki hücrelere açıklama metni yazıp/silerek denemeler yapın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
alan = "I2:I" & Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
Set wf = Application.WorksheetFunction
Set m = Sheets("MESAİ"): Set md = Sheets("MESAİDATA")
If wf.CountIf(m.[C:C], md.Cells(Target.Row, "B")) = 0 Or _
    wf.CountIf(m.[3:3], md.Cells(Target.Row, "A")) = 0 Then Exit Sub
        sat = wf.Match(md.Cells(Target.Row, "B"), m.[C:C], 0) + 2
        sut = wf.Match(md.Cells(Target.Row, "A"), m.[3:3], 0)
With m.Cells(sat, sut)
    .ClearComments
    If Target <> "" Then
        .AddComment: .Comment.Text Text:=Target.Text
    End If
End With
End Sub
__________________
.
☾✭ İ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, dosyaupload.com 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 16-01-2018, 11:38   #3
Etamustafa
Altın Üye
 
Giriş: 12/11/2016
Şehir: Istanbul
Mesaj: 121
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Hocam ilginiz için teşekkür ederim, Şu aşagıdaki neden dir bilmem arasıra hata veriyor ama kaynagı nedir bilmiyorum ondan sonra iptal tekrar reset atıyorum sonra devam ediyor.
Onun haricinde çok iyi bir şekilde çalışıyor.

.AddComment: .Comment.Text Text:=Target.Text

ilginiz yardımlarınız için teşekkür ederim....
Etamustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2018, 11:54   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,404
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Tekrar merhaba.

Önceki kod cevabımda düzeltme yaptım (mavi renklendirdiğim satır)
sayfayı yenileyerek kontrol edersiniz.
.
__________________
.
☾✭ İ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, dosyaupload.com 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 16-01-2018, 13:37   #5
Etamustafa
Altın Üye
 
Giriş: 12/11/2016
Şehir: Istanbul
Mesaj: 121
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
Tekrar merhaba.

Önceki kod cevabımda düzeltme yaptım (mavi renklendirdiğim satır)
sayfayı yenileyerek kontrol edersiniz.
.
hocam elinize sağlık harika oldu İlgi alakanız için teşekkür ederim.
Etamustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2018, 14:40   #6
Etamustafa
Altın Üye
 
Giriş: 12/11/2016
Şehir: Istanbul
Mesaj: 121
Excel Vers. ve Dili:
Excel 2016
Varsayılan

HOCAM TAM OLARAK SORUNU ANLADIM; tarih yazıyorum ok! isim yazıyorum ok! sefer yazıyorum SORUN! mesala örnek vermek isterim.:
tarih :14.01.2018 isim: Mehmet Kaya sefer:10 diye yazdıgım zaman
14.01.2018 önce 10 sefer varsa açıklayı oraya koyuyor aYnı seferler mevcut olabilir dahA önce böyle bir sefer sayısı varsa tarihi baz almadan o servis sayısına açıklama koyuyor Ömer hocam

Bu mesaj en son " 17-01-2018 " tarihinde saat 19:39 itibariyle Etamustafa tarafından düzenlenmiştir....
Etamustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-01-2018, 06:41   #7
Etamustafa
Altın Üye
 
Giriş: 12/11/2016
Şehir: Istanbul
Mesaj: 121
Excel Vers. ve Dili:
Excel 2016
Varsayılan

TAm olarak bu kod ama isim ve tarih baz alırsa çok iyi olur yardımcı olursanız sevinirim.
Etamustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-01-2018, 23:02   #8
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,404
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Tekrar merhaba.

Önceki cevabımdaki kod'u günceledim.

Kod'un yeni halinin çalışma mantığı şöyle;
-- MESAİDATA sayfası B sütunundaki ad soyad MESAİ sayfası C sütununda yoksa veya
MESAİDATA sayfası A sütunundaki tarih MESAİ sayfası 3'üncü satırında yoksa İŞLEM YAPMA,
-- Ad soyad ve tarihin her ikisi de varsa;
... I sütunu doluysa ismin satırından 2 satır sonrasına, tarihin bulunduğu sütuna açıklama EKLE,
... I sütunu boşsa varolan açıklamayı SİL.

Sayfayı yenileyerek önceki kod cevabımı kontrol ediniz.
.
__________________
.
☾✭ İ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, dosyaupload.com 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 22-01-2018, 14:27   #9
Etamustafa
Altın Üye
 
Giriş: 12/11/2016
Şehir: Istanbul
Mesaj: 121
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Hocam elinize sağlık tam istedigim gibi oldu....
Etamustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-01-2018, 16:47   #10
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.

Alıntı:
Ömer BARAN tarafından gönderildi Mesajı Görüntüle
Tekrar merhaba.

Önceki cevabımdaki kod'u günceledim.

Kod'un yeni halinin çalışma mantığı şöyle;
-- MESAİDATA sayfası B sütunundaki ad soyad MESAİ sayfası C sütununda yoksa veya
MESAİDATA sayfası A sütunundaki tarih MESAİ sayfası 3'üncü satırında yoksa İŞLEM YAPMA,
-- Ad soyad ve tarihin her ikisi de varsa;
... I sütunu doluysa ismin satırından 2 satır sonrasına, tarihin bulunduğu sütuna açıklama EKLE,
... I sütunu boşsa varolan açıklamayı SİL.

Sayfayı yenileyerek önceki kod cevabımı kontrol ediniz.
.


Merhaba Hocam,
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.
__________________
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 19:27


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- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden