Belirtilen sütun ve satır sayısına göre sıralama yapma

Katılım
7 Mayıs 2023
Mesajlar
22
Excel Vers. ve Dili
Microsoft 365
SINAV (1).xlsm - 53 KB

Ömer Faruk Bey, yazdığınız kod aslında tam istediğim kodlar, sadece bir dokunuşunuz kaldı sanırım. Yeni yüklediğim dosyaya bakarsanız, kırmızı dolgulu alanlar, sarı dolgulu alanlara veri çekildikçe otomatik numara veriyor. Sarı dolgulu alanlarda da düşeyara ile çekilen veriler var. Örneğin Yüklediğim dosyadaki gibi en son 29.satıra kadar veri çekmiş, fakat A30-F50 aralığında da veri yok ama düşeyara ve satır formülleri var. Bundan dolayı;
"Veri = Sh1.Range("A10:F" & Sh1.Range("A10").End(xlDown).Row).Value" yazdığınız bu kısımda en son değer olarak 29 satırı değil formüllerin olduğu 50 satırı görüyor. Alan tanımlama hatasına düşüyor.

Ya da "If Satır * Sütun * Carpan < UBound(Veri) - a10 ile a50 arasındaki maksimum değeri çıkar Then" Buraya maksimum değeri çıkar tarzında bir şeyler eklenebilir mi?
 
Son düzenleme:

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
Veri = Sh1.Range("A10:F" & WorksheetFunction.Max(Sh1.Range("A10:A50")) + 9).Value
 
Üst