- 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?
Ö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:
