DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Dim Bak As Long
For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Range("C" & Bak & ":" & Cells(Bak, 2 + Cells(Bak, "A")).Address) = Cells(Bak, "B")
Next
End Sub
Sub cogalt()
Range("C1", Cells(1, Range("A1") + 2)) = Range("B1").Value
End Sub
Fonksiyon ile ancak her hücreye hazır bekleyen bir fonksiyon yazarak yapılabilir. Eğer tekrar sayınız çok fazla olmayacaksa bu denenebilir. Yada Excel 365 versiyonunuz olsaydı resimdeki gibi SIRALI gibi dinamik dizi fonksiyonlarıyla kolaylıkla çözülebilirdi.çok fonksiyon olarak olmuyor sanırım. Kod için çok tşk ederim. Başarılı.