Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 02 Nisan 2010, 15:53:08
-
Selam
excelde formlarda açılan kutuya belirli bir yerden veri alıyorum ve bir hücreye yönlendiriyorum ancak veriler tıklayınca verilerin kendisi yerine sıra numarası yazıyor ben nasıl kendisini yazdırırım örneğim
kayseri a1
adana a2
bolu a3
niğde a4
a1 den a4 de kadarki verileri form daki açılan kutuya veriyorum ve c4 e yönlendiriyorum ancak adanayı tıklayınca 2 yazıyor ben bunu nasıl adana yazdırırım.
-
Merhaba.
Açılan'ı C3'e bağlayın ve C4'e şu formülü yazın;
=İNDİS(A1:A4;C3;0)
-
formdaki açılır menünün içine
a1 sayfa1
a2 sayfa 2
a3 sayfa 3
a4 sayfa 4
a5 sayfa 5 yazıp formdaki açılır menüye aktardım ben sayfa 3e tıklayınca sayfa 3 ün sayfa 5e tıklayınca sayfa 5 in acılmasını istiyorum
şimdiden teşekkür ederim sizler harikasınız
-
Ekli dosyayı inceleyiniz.
Kodlar çalışma sayfasının modülündedir. 8)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Sheets(Target.Value).Select
End Sub
-
Ekli dosyayı nerede abi ben bulmadım bu koduda modüle yazdım hata verdi
-
gönderdiğim dosyayı bir incelerseniz sevinirim
-
Dosyanız ektedir.
Ad tanımlama ile ad tanımlandı ve nesnelere makro atandı. 8)
Sheets(Range("D2").Value).Select
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
abi sen her sayfanın D2 hücresine yazan sayfaya gitmesini saylamışın galiba ,bende biraz değişiklik yapıp sadece verilerdeki sayfandaki D2 hücresinde yazan sayfaya gitmesi için uğraştım
ama tıkladığım sayfaya değilde başka sayfalara gidiyor acaba neden ,birde 30-40 sayfalık bir kitabın hepsine ayrı ayrı kod mu yazamka gerekir,yoksa bu yazılan kodlar işi görürmü
-
yaptığım calışmayıda göndereyim
-
abi sen her sayfanın D2 hücresine yazan sayfaya gitmesini saylamışın galiba ,bende biraz değişiklik yapıp sadece verilerdeki sayfandaki D2 hücresinde yazan sayfaya gitmesi için uğraştım
ama tıkladığım sayfaya değilde başka sayfalara gidiyor acaba neden ,birde 30-40 sayfalık bir kitabın hepsine ayrı ayrı kod mu yazamka gerekir,yoksa bu yazılan kodlar işi görürmü
Siz veriler sayfasında d2 hücrsini ilişkilendirmemişsiniz.C2 hücresini ilişkilendirmişsiniz.O yüzden yanlış yere gidiyor.
2nci soru için,her sayfaya kodu yazmanız lazım.8)
-
abi evet öyle yapmışım düzeltince oldu teşekkürler eline sağlık
-
abi evet öyle yapmışım düzeltince oldu teşekkürler eline sağlık
Rica ederim.
İyi çalışmalar.8)
-
ekli dosyada sayfa1 i kopyalayıp çoğaltım list box1 deki verileri tılayınca o sayfadaki d sutununa yazmıyor devamlı sayfa 1deki d sutununa yazıyor ben her sayfanın listbox kendi d sütununa yazmazını istiyorum
aslında benim amacım ben devamlı sayfa1 in kopyasını oluşturmak ve sayfa 1 değilde olusturduğum sayfanın d1 inden başlayarak yazması
-
özelleiklerde rowsorcede sayfa1! yazan sayfa referansını kaldırdım.
Dosya ektedir.8)
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
abi bir kontrol edermisiniz gönderdiğinizi galiba olmamış
-
abi bir kontrol edermisiniz gönderdiğinizi galiba olmamış
Olmuş .Bende bir problem gözükmüyor.
Bakın Kopyalanmış sayfada YEŞİL BURSA listboxta gözüküyor.
OYSA ilk sayfada BURSA yazıyor sadece.8)
-
kopyaladığım sayfalarında listbox veriyi hep sayfa 1 den alsın ama tıklayınca kendi sayfasının d1 inden başlayarak sıralı yazsın istiyorum. Benim gönderdiğim dosyada herşey istediğim gibi ama kendi sayfasının d1 ine yazmıyorda kopyaladığım bütün sayfaların listboxı sayfa1 in d1 ine yazıyor.
-
mesela sayfa adlarını sayfa1,sayfa2,sayfa3,sayfa4 yaprtım ve her sayfanın kod peceresindeki sayfa1 yazan yerleri sayfa 2,sayfa3 sayfa4 olarak kendi sayfasının adını yazdım ve istediğim gibi oldu.ben nasıl sayfa adını ve sayfanın kod pencerisinde elle değiştirmeden her kopyaladığımda otomatik olarak bu işlerin yapılmasını sağlayacagım
-
kopyaladığım sayfalarında listbox veriyi hep sayfa 1 den alsın ama tıklayınca kendi sayfasının d1 inden başlayarak sıralı yazsın istiyorum. Benim gönderdiğim dosyada herşey istediğim gibi ama kendi sayfasının d1 ine yazmıyorda kopyaladığım bütün sayfaların listboxı sayfa1 in d1 ine yazıyor.
Dosyanız ektedir.8)
Private Sub ListBox1_Click()
Excelce_Sonsatir = WorksheetFunction.CountA(Range("D1:D65530"))
Range("D" & Excelce_Sonsatir + 1) = ListBox1.List(ListBox1.ListIndex)
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
çok teşekküerle tam istediğim buydu.
-
çok teşekküerle tam istediğim buydu.
Rica ederim.
İyi çalışmalar.8)