Teşekkür ile Başlamak isterim,
İstenen:
1- g3 hücresi, f4 den başlayarak aşağı doğru burada f18 e kadar ( gerçek tablo (114000 satır) tarayarak eğer, g4 hücresinin keşiştiği hücrede değer varsa,
75 | 30 | 1 | 1 | kur-1/DE1 | 2005 | 1007 | 20051007|
şeklinde bir diğer sayfaya yazacak eğer g4 hücresinin de değer yoksa g5 geçerek işlemi tekrarlayacak böylece bütün sütunlar satırları tarayarak form sekmesinde olan biçimde bir form üretecek.
g3-h3-i3-j3-k3...................... an3 sırasıyla bu işlemi tekrarlayacak
başka bir ifadeyle
DE-1 2005 / KUR1- 1007 kesiştiği yede bir değer varsa
75 | 30 | 1 | 1 | kur-1/DE1 | 2005 | 1007 | 20051007|
yazmasını yoksa bir sonraki satırdan devam ederek bütün tabloyu tarayarak bana bir liste çıkarmasını istiyorum.
Bununla ilgili aşağıdaki kodu kullandığımda listemi alıyorum ancak, satırların bağlı olduğu sıra nolarını alamıyorum. satır ve sütunları tararken kesişen hücre bulunduğunda o hücrenin satırındaki sıra no ya da bağ kodunu yanına yazılması gerekiyor.
İlginize ve destekleriniz için şimdiden teşekkür ederim.
ekte örnek dosya bulunmaktadır.
Kod için Murat Osma'ya teşekkür ederek aktarmak isterim.
Sub Emre()
Dim i As Integer, a As Integer, c As Integer
Sayfa2.Columns("A:AW").ClearContents: c = 2
With Sayfa1
For i = 4 To .Range("A1000000").End(3).Row
For a = 3 To 150
If .Cells(i, a) <> "" Then
Sayfa2.Cells(c, 1) = .Cells(2, a) & "-" & .Cells(i, "A")
Sayfa2.Cells(c, 2) = .Cells(3, a)
Sayfa2.Cells(c, 3) = .Cells(i, 2)
Sayfa2.Cells(c, 4) = Sayfa2.Cells(c, "B") & Sayfa2.Cells(c, "C")
c = c + 1
End If
Next a
Next i
End With
MsgBox "..::.. Liste Hazır ..::..", vbInformation + _
vbMsgBoxRtlReading, "Www.ExcelVBA.Net"
Sayfa2.Columns.AutoFit: Sayfa2.Select
a = Empty: i = Empty: c = Empty
End Sub
İstenen:
1- g3 hücresi, f4 den başlayarak aşağı doğru burada f18 e kadar ( gerçek tablo (114000 satır) tarayarak eğer, g4 hücresinin keşiştiği hücrede değer varsa,
75 | 30 | 1 | 1 | kur-1/DE1 | 2005 | 1007 | 20051007|
şeklinde bir diğer sayfaya yazacak eğer g4 hücresinin de değer yoksa g5 geçerek işlemi tekrarlayacak böylece bütün sütunlar satırları tarayarak form sekmesinde olan biçimde bir form üretecek.
g3-h3-i3-j3-k3...................... an3 sırasıyla bu işlemi tekrarlayacak
başka bir ifadeyle
DE-1 2005 / KUR1- 1007 kesiştiği yede bir değer varsa
75 | 30 | 1 | 1 | kur-1/DE1 | 2005 | 1007 | 20051007|
yazmasını yoksa bir sonraki satırdan devam ederek bütün tabloyu tarayarak bana bir liste çıkarmasını istiyorum.
Bununla ilgili aşağıdaki kodu kullandığımda listemi alıyorum ancak, satırların bağlı olduğu sıra nolarını alamıyorum. satır ve sütunları tararken kesişen hücre bulunduğunda o hücrenin satırındaki sıra no ya da bağ kodunu yanına yazılması gerekiyor.
İlginize ve destekleriniz için şimdiden teşekkür ederim.
ekte örnek dosya bulunmaktadır.
Kod için Murat Osma'ya teşekkür ederek aktarmak isterim.
Sub Emre()
Dim i As Integer, a As Integer, c As Integer
Sayfa2.Columns("A:AW").ClearContents: c = 2
With Sayfa1
For i = 4 To .Range("A1000000").End(3).Row
For a = 3 To 150
If .Cells(i, a) <> "" Then
Sayfa2.Cells(c, 1) = .Cells(2, a) & "-" & .Cells(i, "A")
Sayfa2.Cells(c, 2) = .Cells(3, a)
Sayfa2.Cells(c, 3) = .Cells(i, 2)
Sayfa2.Cells(c, 4) = Sayfa2.Cells(c, "B") & Sayfa2.Cells(c, "C")
c = c + 1
End If
Next a
Next i
End With
MsgBox "..::.. Liste Hazır ..::..", vbInformation + _
vbMsgBoxRtlReading, "Www.ExcelVBA.Net"
Sayfa2.Columns.AutoFit: Sayfa2.Select
a = Empty: i = Empty: c = Empty
End Sub
Son düzenleme: