Çalışma Kitabına Sicil Adı Soyadı Getirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

YasarPiskin

VIP Üye
Kullanıcı
Katılım
6 Ara 2016
Mesajlar
2,059
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
İZİN çalışması DATA sayfası C Sütunundaki isimlere çift tıklandığında İZİN klasöründe " 0175 - YAŞAR PİŞKİN" şeklinde rapor sayfasının B2 hücresine 0175 - YAŞAR PİŞKİN şeklinde sicil ve ad soyadı getirebilmek ve RAPOR sayfası F sütunundaki oka basınca İZİN çalışması DATA sayfasına gitmek için İZİN çalışması BuÇalışmaKitabı sayfasındaki kodun iyileştirilmesi hususunda yardımlarınızı talep ediyorum.​
 
Tüm VBA Kodlarının Özetini Alma
Userform Nesnesini Dashboard Haline Getirme
Userform Nesnesini Dashboard Haline Getirme

Ekli dosyalar

Çözüm
okutkan
Buda B2 hücresindeki isme ait dosyanın açılması için kod. Dosyaların Aynı klasörde olmalı. Aksi halde dosyaYolu değiştirilmesi gerekir.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
Tarihe göre sırala Oylamaya göre sırala
İZİN çalışması DATA sayfası C Sütunundaki isimlere çift tıklandığında (Resim1) İZİN klasöründe " 0175 - YAŞAR PİŞKİN" şeklinde oluşturulan rapor sayfasının B2 hücresine örnekteki gibi 0175 - YAŞAR PİŞKİN şeklinde sicil ve ad soyadı getirebilmek ve RAPOR sayfası F sütunundaki oka basınca İZİN çalışması DATA sayfasına gitmek için İZİN çalışması BuÇalışmaKitabı sayfasındaki kodun iyileştirilmesi hususunda yardımlarınızı talep ediyorum.​
 

Ekli dosyalar

  • 1.webp
    1.webp
    192.3 KB · Görüntüleme: 37
  • 2.webp
    2.webp
    22.1 KB · Görüntüleme: 35
Oyla 0 Olumsuz oyla
çift tıklama kodunun içine aşağıdaki kodu yapıştırın. "Set ds..." satırının bir üst satırına yapıştırabilirsiniz.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)


1703796649343.webp
 
Oyla 0 Olumsuz oyla
Buda B2 hücresindeki isme ait dosyanın açılması için kod. Dosyaların Aynı klasörde olmalı. Aksi halde dosyaYolu değiştirilmesi gerekir.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Çözüm
Cevap 6 kodu ilgili yere ekledim (Resim 1) fakat 0175 - YAŞAR PİŞKİN şeklindeki sicil ve ad soyadı DATA sayfasının B2 hücresine değil de rapor sayfasının B2 hücresine örnekteki gibi 0175 - YAŞAR PİŞKİN şeklindeki (Resim 2-3) sicil ve ad soyadı getirebilmek için yardımlarınızı talep ediyorum.​
 

Ekli dosyalar

  • 1.webp
    1.webp
    94.8 KB · Görüntüleme: 35
  • 2.webp
    2.webp
    21.8 KB · Görüntüleme: 38
  • 3.webp
    3.webp
    197.1 KB · Görüntüleme: 36
Oyla 0 Olumsuz oyla
Çift tıklama yaptığınız excel dosyasındaki sayfada bulunan şablona mı isim yazdırılacak? Paylaştığım kod Çift tıklama yaptığınız da açılan dosyanın b2 hücresine yazıyor.
 
Oyla 0 Olumsuz oyla
Aşağıdaki kod yan rapor isimli sayfadaki b1 hücresine yazar. Çift tıklama kodunun ilk satırındaki koşulların bi alt satırına yapıştırın.

Thisworkbook.sheets("Rapor").Range("B2") = Target.Offset(0, -1).Text & "-" & Target.Text
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt