Herhangi Bir Verinin Bulunduğu Hücreye gitme

[Orion1]

evet var zaten o yuzden anlamıyorm nıye bu hatayı verıyor aslında okuması lazım bu klasörün içindeki txt uzantısını cunku mevcut

Peki Close #1 ile açtığınız txt dosyalarınızı kapatıyormusunuz?

 

[semira_]

yanlız az once çalıştırdım benım ıkı tane txt dosyamı okudu ama bunları klasorde ıkı adet MASM uzantılı bır ture cevırdı bu ne uzantısı anlamadım . txt degıl ama MASM Listing Cevırdı

 

[Orion1]

Klasörü ile birlikte sıkıştırıp yollayınız.

 

[semira_]

http://s6.dosya.tc/server5/qexvgs/calismam.rar.html

bu lınkte klasor mevcut orada kı txt dosyalarını Gams denılen bır programa aktarma yapması için bu makroyu yazdım ,


evet Close #1 ıle kapattım cunku o ır turluu bana fıle ıs already opened hatası verıyordu o yzuden kapattım.

Peki Close #1 ile açtığınız txt dosyalarınızı kapatıyormusunuz?

 

[Orion1]

Klasörü sıkıştırıp yollayın.bakayım.

 

[YUSUF44]

Filename = ThisWorkbook.Path & "\Çözümler\Çözüm_" & Left(dosyaadı, Len(dosyaadı) - 3) & ".txt"

Yukarıdakı dongude Filename olan kısımda error 53 hatası verıyor ve file is not found hatası verıyor

Demiştiniz. Burda A sütunundaki metnin sağdan 3 karakteri kırpılıp yerine .txt ekleniyor.

Eğer a1'deki veri P1_3_3_5_0.2_5(3).txt ise bu durumda yeni hali P1_3_3_5_0.2_5(3)..txt olacaktır. Hata burddaki çift noktadan galiba.

 

[mekist]

Linkteki dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
Set k = Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Range("A" & k.Row).Select
Set k = Nothing
End Sub

Merhaba,

S8 Hücresindeki veriyi M ve N sütunlarında arayıp bulunduğu hücreye gitme istedim ama çalışmadı, nere de hata yapıyorum acaba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [S8]) Is Nothing Then Exit Sub
Set k = Range("M:N").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Range("M" & k.Row & "N" & k.Row).Select
Set k = Nothing
End Sub

 

[Korhan Ayhan]

Kodlarda bir problem görünmüyor.

S8 hücresine elle veri girip deniyorsunuz değil mi?

 

[mekist]

Kodlarda bir problem görünmüyor.

S8 hücresine elle veri girip deniyorsunuz değil mi?

Evet elle veri giriyorum ama çalıştıramadım

 

[Korhan Ayhan]

Hücre seçim kısmında iki nokta üst üste sembolü eksik kalmış..

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim k As Range
    If Intersect(Target, [S8]) Is Nothing Then Exit Sub
    Set k = Range("M:N").Find(What:=Target.Value, LookAt:=xlWhole)
    If Not k Is Nothing Then Range("M" & k.Row & ":N" & k.Row).Select
    Set k = Nothing
End Sub

 

[mekist]

Dediğiniz gibi denedim ama olmadı

 

[Korhan Ayhan]

Kod M ve N sütunlarında arama yapıyor. Bu sütunlarda bulunan bir değeri yazarak denemelisiniz. Ben denediğimde olumlu sonuç alıyorum.

 

[mekist]

Çok özür dilerim, bende değerler para birimi olarak kalmış arama normal sayı yapınca aramadı, şimdi arıyor
Gitmesini istediğim 16,93 rakamının olduğu hücreye
M ve N hücrelerini birlikte seçiyor, sadece aranan değerin olduğu hücreye gidemez mi

 

[Korhan Ayhan]

Gider..

If Not k Is Nothing Then Range("M" & k.Row & ":N" & k.Row).Select

Bold bölüm yerine k.Select yazıp deneyiniz.

 

[mekist]

Çok teşekkür ederim oldu emeğinize sağlık