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.
Aranan Değerin Sütun Numarası
-
- 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ı
Kodların tamamı aşağıdaki şekilde;
1- ve 2- olarak belirttiğim satırları düzenlemem gerekiyor.
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
-
- Mesajlar: 45
- 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ı
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
-
- 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ı
Sinan Bey ilginize teşekür ederim. Aradığım buydu sağolun, kolay gelsin.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 1 Cevaplar
- 269 Görüntüleme
-
Son mesaj gönderen erseldemirel
-
- 0 Cevaplar
- 1309 Görüntüleme
-
Son mesaj gönderen Userform