Herkese iyi çalışmalar. Ekte örnek bir
Excel var. A hücrelerinde tanımlı numaralar değiştikçe B-O arasındaki bilgilerin A daki numara değişimine kadar olan satır sayısınca P hücresinde formüldeki gibi birleştirmem gerekiyor. Belirli bir düzende satır yok. Buna benzer yüzlerce dosyayı aynı şekilde elde etmem gerekiyor. Herbirinde onbinlerce kayıt var. Kopyala yapıştır ile formülleri kopyalayıp taşan satırları eklemeye çalıştım. Ama bu şekilde istenen zamana yetiştirmem mümkün değil. Yüzlerce site inceledim. En benzer soru
https://accesstr.net/konu-vlookup-ile-hu...durme.html daydı. Oradan devam ettim ancak yeni soru sor denmiş. Oradaki örnekten yola çıkıp eklediğim
Excel için yardım edebilirmisiniz?
A sütunundaki IVL sayı formatı ne?
en fazla kaç karakter var?
sadece sayı ve nokta mı olacak?
aşağıdaki kod işinize yarayabilir
yapılanlar:
1 - çalışmanız makro çalıştırabilen formata dönüştürüldü(xlsm olarak kaydedildi)
2 - Modül eklenip aşağıdaki yordam tanımlandı
Sub VeriBirlestir()
Set sht = ThisWorkbook.Sheets("IVL")
Dim TmpDz As Variant
Aranan = "Analizin Adı"
xAdrs = sht.UsedRange.Address & ":" & sht.UsedRange.Address
SonStr = Val(Split(xAdrs, "$")(4)) + 1
TmpDz = sht.Range("A1:B" & SonStr).Value
Dim VeriDz As Variant
ReDim VeriDz(1 To SonStr, 0)
IVLStr = ""
For x = 1 To SonStr
If TmpDz(x, 2) = Aranan Then
IVLStr = IVLStr & x & ","
End If
Next x
IVLStr = IVLStr & SonStr
tmpVer = Split(IVLStr, ",")
For y = 0 To UBound(tmpVer) - 1
VeriGc = ""
xSon = tmpVer(y + 1) - 1
If Len(TmpDz(xSon, 1) & "") = 0 Then xSon = xSon - 1
For x = tmpVer(y) + 3 To xSon - 2
VeriGc = VeriGc & " * " & TmpDz(x, 1) & " : " & TmpDz(x, 2)
Next x
VeriGc = Mid(VeriGc, Len(" * ")) & " ANL: " & TmpDz(xSon, 1)
VeriDz(tmpVer(y), 0) = VeriGc
Next y
sht.Range("P2").Resize(SonStr, 1) = VeriDz
End Sub