Aşağıda bir sütun için uyarlanan kodu tüm belge için uyarlayabilirmiyiz

[ferhatgurbuz]

Private Sub CommandButton1_Click()
say = WorksheetFunction.CountIf([bv:bv], TextBox44)
For a = 1 To say
adr = "bv" & sat + 1 & ":bv65536"
sat = WorksheetFunction.Match(TextBox44, Range(adr), 0) + sat
satir(a) = sat
Next
SpinButton1.Max = say
SpinButton1_Change
End Sub
Private Sub SpinButton1_Change()
Sheets("Data").Select
If TextBox44.Value = "" Then
MsgBox ("Maliye No Giriniz"), vbCritical, ("Maliye No Bölümü Boş")
Exit Sub
End If
say = WorksheetFunction.CountIf([bv:bv], TextBox44)
If say > 0 Then
sat = satir(SpinButton1.Value

 

[ferhatgurbuz]

Lütfen yardım

 

[Skorpiyon]

Sayın ferhatgurbuz,

Küçük bir örnek dosya ekleyebilir misiniz ?

Saygılarımla...

 

[ferhatgurbuz]

günaydın

dosyayı ekledim. Kişisel bordro adlı usurform üzerinde

 

[Recep İpek]

say = WorksheetFunction.CountIf(Sheets("data").Cells, TextBox44)

olarak deneyin.

 

[ferhatgurbuz]

Yanlış anlattım galiba. Tüm belge içinde hernahgi bir değer olarak aratmak istiyorum. Örneğin mahkeme adına, soyadına , personel nosuna göre. yani Textbox44 e ne girersem onu bulsun istiyorum.

 

[ferhatgurbuz]

tekrar bir bakabilirmisiniz Sayın Ripek

 

[Skorpiyon]

Sayın ferhatgurbuz,

Sizin verileriniz forma Textbox44'ün aldığı değere göre yerleştiriliyor.

Eğer aktif hücrenin yerini değiştirirseniz, verilerin yerleştirilmesinde problem çıkacaktır. Kodu buna göre düzenlemek için hangi verileri aratmak istediğinizi belirtmeniz lazım ki, forma yeniden yerleştirme ona göre yapılabilsin.

Ki bu da ayrı bir problem, zira kod bi hayli uzayacaktır.

Saygılarımla...

 

[ferhatgurbuz]

peki şöyle birşey yapabilirmiyiz. Çünkü Userform1 de bir örneği var. İki tane Optionbutton ile iki sutun arasında seçenek vardı yani birinci optionbuttonu işaretlediğimizde sutun "B"yi ikinci optionbuttonu işaretlediğimizde de "BV" sutununu aratmak gibi birşey olabilir mi

 

[Skorpiyon]

Sayın ferhatgurbuz,

Size istediğiniz şekilde yardımcı olamayacağım ama ÖRNEK olması açısından bir dosya gönderiyorum. İstediğiniz şey sanırım bu.

Örneği inceleyin ve kendi dosyanıza uyarlamaya çalışın.

Not : Formun otomatik olarak açılmasını yazmamışız. Kendiniz kod bölümünden girerek çalıştırınız.

Saygılarımla...

 

[ferhatgurbuz]

teşekkür ederim. aslında benim isediğim gibi. Ama benim formda başka butonlarda var. Ve ben bunu kendi başıma uyarlayamam. Yani böyle sade olsa uyarlarım ama SpinButton lar falan var onlar işi karıştırıyor. Sizlere çok teşekkür ederim. Zahmet oldu.