Excel Mali Tablo Verileri

  • Konuyu başlatan Konuyu başlatan ucgozt
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ucgozt

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
5
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
merhaba,
Ekteki dosyada Hisse kodunu yazıp butona tıkladığımda bir alt satıra ilgili sayfadaki verileri olduğu gibi getirmesini istiyorum. (vba ile mümkünse ya da daha etkin olabilecegini düşündüğünüz bir yöntem ile)
Yapamadım. Yardımcı olur musunuz?
 

Ekli dosyalar

Çözüm
Merhaba, foruma hoşgeldiniz Sayın @ucgozt .

Alt taraftan, Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında SAĞ tarafa aşağıdaki kodu yapıştırın.
B1 hücresinde hisse adını değiştirdiğinizde, ilgili veriler A3 hücresinden itibaren listelenecektir. İşlem için DÜĞME kullanmaya gerek yok.

Hisse sayfalarında;
-- formül/koşullu biçimlendirme yoksa kırmızı satırları silin,
-- formül/koşullu biçimlendirme varsa yeşil satırı silin.

Tavsiyem B1 hücresinde;
ilgili sayfa adlarının LİSTEsini içeren VERİ DOĞRULAMA uygulayarak hisse adını açılır listeden seçmeniz yönünde olacak...
Merhaba, foruma hoşgeldiniz Sayın @ucgozt .

Alt taraftan, Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında SAĞ tarafa aşağıdaki kodu yapıştırın.
B1 hücresinde hisse adını değiştirdiğinizde, ilgili veriler A3 hücresinden itibaren listelenecektir. İşlem için DÜĞME kullanmaya gerek yok.

Hisse sayfalarında;
-- formül/koşullu biçimlendirme yoksa kırmızı satırları silin,
-- formül/koşullu biçimlendirme varsa yeşil satırı silin.

Tavsiyem B1 hücresinde;
ilgili sayfa adlarının LİSTEsini içeren VERİ DOĞRULAMA uygulayarak hisse adını açılır listeden seçmeniz yönünde olacak.
Ayrıca; cevabımdaki işlemi belgenizde uyguladıktan sonra, belgenizi *.xlsm (makro içerebilen belge) uzantılı olarak kaydetmeyi unutmayın.

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

.
 
Çözüm
sayın @Ömer BARAN
Set shf = Sheets(Target.Text)
alan = "$A$1:" & shf.Cells.SpecialCells(xlCellTypeLastCell).Address

shf ve alan için "variable not define" uyarısı alıyorum ?...
 
Sayfa kodlarının başına eklediğiniz Option Explicit satırı nedeniyle,
kodlarda bir değişkenin kullanılabilmesi için TANIMLANMASI gerekir.
Bu nedenle; Set shf..... satırından önce, Dim shf As Worksheet, alan As String şeklinde bir kod satırı eklenmesi gerekir.

.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt