• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Çözüldü Find findnext problemi değerlerin tekrarı

REKLAM

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

UnalEde

Yeni Üye
Kullanıcı
Yaş
50
Versiyon
  1. Ofis 365
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Arkadaşlar merhaba. Aşağıda verdiğim şekilde bir kodlama yaptım, mevcut sayfadan başka bir sayfaya gidip inputbox içine yazılan değeri arayıp buluyor tabi alt alta kaç satır varsa tarayıp buluyor ve sonra o bulduğu satırların 9 sütün ilerisine KAPANDI diye yazıyor. Bunu bir depo stok kontrolünde sipariş takibi de yapabilmek için yazmıştım. Lakin ID numaralarında D15'in kapanmasını istiyorum, D15 numaralı siparişi kapattıktan sonra D158'i de kapatıyor. Veya D17 siparişini kapattıktan sonra D171 numaralı siparişi de kapatıyor. Ama D170 numaralı siparişi kapattıktan sonra D171 numaralı siparişi kapatmıyor.
Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Selamlar.

Kod:
Private Sub CommandButton2_Click()
    Worksheets("sipariş").Activate
    Dim aranan, ilkadres As String
    Dim kontrolyeri, bulunan As Range
    aranan = InputBox("Sipariş Numarası Giriniz", "SİPARİŞ ARAMA")
    Set kontrolyeri = Sheets("sipariş").Range("a:a")
    Set bulunan = kontrolyeri.Find(aranan)
        If bulunan Is Nothing Or bulunan = "" Then
        MsgBox "Sipariş Numarası Bulunamadı"
        Sheets("girişçıkış").Select
        Exit Sub
        End If
    bulunan.Select
    Sheets("sipariş").Cells(ActiveCell.Row, 9) = 0
    Sheets("sipariş").Cells(ActiveCell.Row, 10) = "KAPANDI"
    ilkadres = bulunan.Address
    Do
    MsgBox (bulunan & " Numaralı Sipariş Kapandı")
    Set bulunan = kontrolyeri.FindNext(bulunan)
    bulunan.Select
    Sheets("sipariş").Cells(ActiveCell.Row, 9) = 0
    Sheets("sipariş").Cells(ActiveCell.Row, 10) = "KAPANDI"
    Loop While ilkadres <> bulunan.Address
    Worksheets("girişçıkış").Activate
End Sub
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Merhaba, foruma hoşgeldiniz Sayın @UnalEde .

Sorularınızı, cevabımın altındaki İMZA bölümünde yer alan açıklamalar (okuyunuz) doğrultusunda hazırlayacağınız
örnek belge üzerinden sorup, olması gereken durumu örnek belge üzerinde örneklendirirseniz sonuca ulaşmanız kolaylaşır.

Forumda yeni olmanızdan kaynaklandığını sanıyorum.
Mesajlarınızda vereceğiniz kod/formül içeriklerini, mesaj yazma alanının hemen üstünde yer alan
</> simgesine tıkladıktan sonra açılacak alana yapıştırarak eklerseniz hem görünüm hem de işlevsellik bakımından iyi olur.
Mevcut mesaj içeriği için düzeltmeyi ben yaptım.

İyi çalışmalar dilerim.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

Set bulunan = kontrolyeri.Find(aranan)
Merhaba, Yukarıda alıntı yaptığım yeri aşağıdaki gibi değiştirerek deneyin.

Kod:
 Set bulunan = kontrolyeri.Find(aranan, , , xlWhole)
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm

UnalEde

Yeni Üye
Kullanıcı
Yaş
50
Versiyon
  1. Ofis 365
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba, foruma hoşgeldiniz Sayın @UnalEde .

Sorularınızı, cevabımın altındaki İMZA bölümünde yer alan açıklamalar (okuyunuz) doğrultusunda hazırlayacağınız
örnek belge üzerinden sorup, olması gereken durumu örnek belge üzerinde örneklendirirseniz sonuca ulaşmanız kolaylaşır.

Forumda yeni olmanızdan kaynaklandığını sanıyorum.
Mesajlarınızda vereceğiniz kod/formül içeriklerini, mesaj yazma alanının hemen üstünde yer alan
</> simgesine tıkladıktan sonra açılacak alana yapıştırarak eklerseniz hem görünüm hem de işlevsellik bakımından iyi olur.
Mevcut mesaj içeriği için düzeltmeyi ben yaptım.

İyi çalışmalar dilerim.

.
Ömer bey, doğrudur forumda yeni olmaktan mütevellit. Bundan sonraki kısımda daha dikkatli davranmaya gayret edeceğim.
Selamlar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

UnalEde

Yeni Üye
Kullanıcı
Yaş
50
Versiyon
  1. Ofis 365
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba, Yukarıda alıntı yaptığım yeri aşağıdaki gibi değiştirerek deneyin.

Kod:
 Set bulunan = kontrolyeri.Find(aranan, , , xlWhole)
Feyzullah bey iki gündür arayıp tarayıp çözüm bulamamıştım, emeğinize bilginize sağlık. İnsan ellisinden sonra VBA ya bulaşınca böyle oluyor. Problem çözülmüştür.
Selamlar Saygılar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular

Üst