Cells.Find sorunu

[skyper]

Ben bir değeri "Sayfa2" 'den bulup çekmek istiyorum. Bunun için şu kodu kullandım

Sheets("Sayfa2").Select
Cells.Find(deger).Select

Her halükarda 2.sayfayı seçme zorunluluğum var mı ? Benim istediğim arka planda sayfa değişmeden yani 1.sayfada iken 2.sayfadan değeri alıp getirsin.

 

[halit3]

örnek dosya koyarmısınız

 

[Orion1]

Ben bir değeri "Sayfa2" 'den bulup çekmek istiyorum. Bunun için şu kodu kullandım

Sheets("Sayfa2").Select
Cells.Find(deger).Select

Her halükarda 2.sayfayı seçme zorunluluğum var mı ? Benim istediğim arka planda sayfa değişmeden yani 1.sayfada iken 2.sayfadan değeri alıp getirsin.

O zaman değerin bulunduğu hücreyi seçtirmeyin.

on error resume next
msgbox Cells.Find(deger)

 

[skyper]

örnek dosya

O zaman değerin bulunduğu hücreyi seçtirmeyin.

on error resume next
msgbox Cells.Find(deger)

Bu şekilde denedim o zaman verileri getirmedi dosyayı ekledim birde ordan bakın isterseniz

 

[halit3]

aşağıdaki kodu yazsan sorun çözülürmü

Private Sub CommandButton1_Click()

UserForm2.Label1 = Worksheets("demand").Cells(2, 1).Value
UserForm2.Label2 = Worksheets("demand").Cells(2, 2).Value
UserForm2.Label3 = Worksheets("demand").Cells(2, 3).Value

UserForm1.Hide
UserForm2.Show

End Sub

 

[skyper]

Sayın halit3
deger değişkenin içeriği her seferinde değiştiği ve de ilgili sayfadan her seferinde bu değişkendeki değeri bulması gerektiği için işimi görmez. Yani demand sheet'indeki veri çok fazla o yüzden bir satır yolladım ben. Benim istediğim bugünün tarihini atsın değişkene ve o tarihi 2.sayfada bulsun ve karşısındaki değerleri bana versin. Ama bütün bunları yaparken sayfalar değişmesin hep 1. sayfada kalsın

 

[Orion1]

Dosyanız Ekte.

Private Sub CommandButton1_Click()
[B][COLOR="Red"]Dim k As Range[/COLOR][/B]
[B][COLOR="red"]Set k = Sheets("demand").Range("A:A").Find(Date, , xlValues, xlWhole)[/COLOR][/B]
[B][COLOR="red"]If Not k Is Nothing Then[/COLOR][/B]
    UserForm2.Label1 = Round([B][COLOR="red"]k[/COLOR][/B].Offset(0, 1).Value)
    UserForm2.Label2 = Round([B][COLOR="red"]k[/COLOR][/B].Offset(0, 2).Value)
    UserForm2.Label3 = Round([B][COLOR="red"]k[/COLOR][/B].Offset(0, 3).Value)
End If
UserForm1.Hide
UserForm2.Show
End Sub

 

[skyper]

Evren Bey teşekkürler işimi gördü yoladığınız kod

 

[Orion1]

Evren Bey teşekkürler işimi gördü yoladığınız kod

Rica ederim.İyi çalışmalar.

 

[halit3]

ekli dosyayı incelermisiniz

 

[skyper]

Teşekkürler fakat ben bu işi form üzerinde datetimepicker ile yapıyorum ve seçtiğim tarihe göre istediğim veri geliyor