Aranan Değerin Sütun Numarası

Cevapla
ismailcen
Mesajlar: 3
Kayıt: Sal Nis 23, 2024 10:53 am
Lokasyon: Balıkesir
Meslek: Kalite Kontrol Sorumlusu (Beton)
Adınız: İsmail
Soyadınız: CENNETOĞLU

Aranan Değerin Sütun Numarası

Mesaj gönderen ismailcen »

Arkadaşlar kolay gelsin,
Bir (Arsiv_Dgt) çalışma sayfasındaki DA:EX kolon aralığı, döngü içinde tanımlı olan k satırında sıfırdan büyük tek değeri arayıp, kolon numarasını öğrenmek istiyorum.
Yazdığım kod aşağıda ;

StnNo = WorksheetFunction.Columns(Arsiv_Dgt.Range(Cells(k, 105), Cells(k, 154)).Find(">0"))

Bu kod ile amacıma ulaşamadım. Nerde hata yapıyorum? Yardımcı olursanız sevinirim.
Şimdiden teşekkürler.
ismailcen
Mesajlar: 3
Kayıt: Sal Nis 23, 2024 10:53 am
Lokasyon: Balıkesir
Meslek: Kalite Kontrol Sorumlusu (Beton)
Adınız: İsmail
Soyadınız: CENNETOĞLU

Re: Aranan Değerin Sütun Numarası

Mesaj gönderen ismailcen »

Kodların tamamı aşağıdaki şekilde;
1- ve 2- olarak belirttiğim satırları düzenlemem gerekiyor.

Kod: Tümünü seç

Private Sub UserForm_Initialize()
 Dim StnNo As Integer
 Frame_Arsiv.Visible = True
 Frame_Giris.Visible = False
   Form_Dagitici.ListK_Tarih.Clear
   Form_Dagitici.ListK_Dagitici.Clear
   j = 0
   For k = 8 To 373
     If Arsiv_Prj.Cells(k, 4) <> 0 And WorksheetFunction.CountIf(Arsiv_Dgt.Range(Arsiv_Dgt.Cells(k, 105), Arsiv_Dgt.Cells(k, 154)), ">0") > 0 Then   
        Form_Dagitici.ListK_Tarih.AddItem Format(Arsiv_Prj.Cells(k, 4), "DD.MM.YYYY")
        StnNo = WorksheetFunction.Columns(Arsiv_Dgt.Range(Cells(k, 105), Cells(k, 154)).Find(">0")) 
        '1-Form_Dagitici.ListK_Dagitici.AddItem ........
        j = j + 1
    End If
    Next k
     Form_Dagitici.ListK_Tarih.ListIndex = j - 1
     '2-Form_Dagitici.ListK_Dagitici.ListIndex= ........
End Sub
SNNAY
Mesajlar: 29
Kayıt: Prş Mar 21, 2024 11:31 am
Lokasyon: istanbul
Meslek: Oto Yedek Parça Satış Elemanı
Adınız: Sinan
Soyadınız: Aykaç

Re: Aranan Değerin Sütun Numarası

Mesaj gönderen SNNAY »

Deneyiniz

Kod: Tümünü seç

Private Sub UserForm_Initialize()
    Dim StnNo As Integer
    Dim rng As Range
    Dim cell As Range
    Dim j As Integer
    
    Frame_Arsiv.Visible = True
    Frame_Giris.Visible = False
    Form_Dagitici.ListK_Tarih.Clear
    Form_Dagitici.ListK_Dagitici.Clear
    
    j = 0
    For k = 8 To 373
        If Arsiv_Prj.Cells(k, 4) <> 0 And WorksheetFunction.CountIf(Arsiv_Dgt.Range(Arsiv_Dgt.Cells(k, 105), Arsiv_Dgt.Cells(k, 154)), ">0") > 0 Then
            Form_Dagitici.ListK_Tarih.AddItem Format(Arsiv_Prj.Cells(k, 4), "DD.MM.YYYY")
            
            Set rng = Arsiv_Dgt.Range(Arsiv_Dgt.Cells(k, 105), Arsiv_Dgt.Cells(k, 154))
            Set cell = rng.Find(What:=">0", LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not cell Is Nothing Then
                StnNo = cell.Column
                '1-Form_Dagitici.ListK_Dagitici.AddItem ........
            End If
            
            j = j + 1
        End If
    Next k
    
    Form_Dagitici.ListK_Tarih.ListIndex = j - 1
    '2-Form_Dagitici.ListK_Dagitici.ListIndex= ........
End Sub
ismailcen
Mesajlar: 3
Kayıt: Sal Nis 23, 2024 10:53 am
Lokasyon: Balıkesir
Meslek: Kalite Kontrol Sorumlusu (Beton)
Adınız: İsmail
Soyadınız: CENNETOĞLU

Re: Aranan Değerin Sütun Numarası

Mesaj gönderen ismailcen »

Sinan Bey ilginize teşekür ederim. Aradığım buydu sağolun, kolay gelsin.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj