• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

useform sorunu

B

b_balban

Katılım
13 Mayıs 2008
Mesajlar
34
Excel Vers. ve Dili
2003 türkçe
Merhaba
Arkadaşlar çok acil olduğundan dolayı yeni konu açmak zorunda kaldım, kusura bakmayın.Ekte yer alan dosyayı inceleyebilir misiniz.

1-Userforma arama özelliği
yapıp bu sayfadaki articellerden
birini girince il il alt alta sıralanmış
olarak satış adetlerini görmek
istiyorum.

nasıl yapabiliriz?

2) userformun sadece anasayfada
açılmasını istiyorum butonlara tıklayıp
diğer sayfalara gidince görünmesini istemiyorum.


3)Marketlerin satışlarını tek tek günlük satışlarını gösteren
bir düşeyara ile yaptığım dosyam var bu dosya düşey ara ile
sistemden çekilen rapordan veri alıyor.Bu dosya böle almaya devam ederken
ben userform üzerine sayfalar açsam verileri ordan görsem olur mu?

4- userform üzerinde açılan page ler arasında link veremedim nasıl yaparız.



teşekkür ederim.

saygılarımla
 

Ekli dosyalar

Son düzenleme:
konu güncel arkadaşlar.Destek verebilecek arkadaşlardan yardımlarını bekliyorum.


saygılarımla
 
merhaba arkadaşlar,

çok uğrastım fakat bi türlü yapamadım. ekteki doyayı incelermisiniz.

excelde 1. sayfadan yada herhangi bir sayfadaki articeli girince userformda ürünün tanımının ve illerde satış adetlerini görmek istiyorum.günlerdir uğrasyrum yapamadım.yardımcı olursanız sevinirm.
 

Ekli dosyalar

Userform bul-getir

Merhaba dosyanız ekte...
 

Ekli dosyalar

Merhaba,
Aşağıdaki kodu sadece 1. sayfada çalıştırabiliyorum.Aynı anda 30-31 ve 32. sayfada nasıl çalıştırabilirim.Bilgilerin hepsi her sayfada aynı hücre ve satırlarda.

teşekkür ederim.


Private Sub CommandButton1_Click() 'BUL
On Error Resume Next
Dim k As Range, i As Byte
If TextBox1.Value = "" Then Exit Sub
Set k = Range("A2:A525").Find(TextBox1.Value, , xlValues, xlWhole)
For i = 1 To 7
Controls("TextBox" & i).Value = Empty
Next
If Not k Is Nothing Then
k.Select
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
Else
MsgBox "Değer Bulunumadı", vbCritical, "DİKKAT"
End If
End Sub
 
Merhaba Arkadaşlar

Diğer sayfalar için kodu uyarladım fakat şöyle bir sorunum var.mesala userforma veriyi girince veri hangi sayfa ve satırdaysa userformla direk oraya gidiyorum:)veri 20. sayfadaysa hem verileri gösteriyor hemde o sayfaya gidiyor.

bunu sabit tutmak istiyorum.mesala userformu 1. sayfadan açıp 20 sayfadaki veriyi arasam ile userformun kalkıp beni 20. sayfaya götürmesini istemiyorum.yardımcı olursanız sevinirim.

kullandığım kod;


Private Sub textbox1_change()
Sayfa1.Activate
For i = 2 To 200
a = Cells(i, 1)
b = Cells(i, 2)
c = Cells(i, 3)
d = Cells(i, 4)
e = Cells(i, 5)
f = Cells(i, 6)
g = Cells(i, 7)

If (TextBox1.Text) = a Then
TextBox2.Text = b
TextBox3.Text = c
TextBox4.Text = d
TextBox5.Text = e
TextBox6.Text = f
TextBox7.Text = g
End If
Next i

Set a = Worksheets("sayfa1").Range("a1:a65000").Find(TextBox1.Value, , xlValues, xlWhole)
If Not a Is Nothing Then
Worksheets("sayfa1").Rows(a.Row).Select
End If

End Sub
 
Son düzenleme:
Konu güncel arkadaşlar

Set a = Worksheets("sayfa1").Range("a1:a65000").Find(TextBox1.Value, , xlValues, xlWhole)
If Not a Is Nothing Then
Worksheets("sayfa1").Rows(a.Row).Select
End If

kısmını çıkartarak yaptım değişen yine bişey yok

nerde hata yapıyor olabilirm
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst