Çözüldü Alfabetik Sıralı Olmama

vernel · 26 Eki 2021

Selamlar, Verilerin alfabetik sırada olmadığını tespit eden makro kodu var mı !
Örneğin A2:A6 hücrelerini seçip, bunlar alfabetik olarak sıralı olmadığını mesaj olarak verebilir miyiz ?

Refaz · 26 Eki 2021

Merhaba.
Mantıken döngü kurulup küçük değilse mesaj verdiilebilinir bence.
Bubble sort olmalı sıralama için kod yanılmıyorsam.

askan · 26 Eki 2021

Refaz' Alıntı:
Merhaba.
Mantıken döngü kurulup küçük değilse mesaj verdiilebilinir bence.
Bubble sort olmalı sıralama için kod yanılmıyorsam.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Zafer hocam senin dediğin bu kod olsa gerek doğru mu?

Refaz · 26 Eki 2021

Evet abey

Refaz · 26 Eki 2021

askan' Alıntı:
For i = 2 To LastRow MyData(i) = Range("A" & i) Next i

Bu kısım döngüsüz yapılabilir aslında abey.

Refaz · 26 Eki 2021

askan' Alıntı:
ReDim MyData(1 To LastRow) For i = 2 To LastRow MyData(i) =

Bu kısım silinip
Mydata= range("a2:a" & Lastrow).value
Gibi olabilir.
Tabii alttakilede MyArray(i,1) gibi olmalı yani ,1 eklenmeli denemedim ama öyle biliyorum abey.

vernel · 26 Eki 2021

askan' Alıntı:
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Zafer hocam senin dediğin bu kod olsa gerek doğru mu?

askan çok teşekkür ederim, harika çalıştı. sağlıklı günler diliyorum

askan · 26 Eki 2021

Refaz' Alıntı:
Bu kısım döngüsüz yapılabilir aslında abey.

döngüsüz paylaş bizde öğrenelim alternatif olsun

Refaz' Alıntı:
Bu kısım silinip
Mydata= range("a2:a" & Lastrow).value
Gibi olabilir.
Tabii alttakilede MyArray(i,1) gibi olmalı yani ,1 eklenmeli denemedim ama öyle biliyorum abey.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

doğru Zafer hocam bu şekilde döngüsüz çalışyor

Refaz · 26 Eki 2021

askan' Alıntı:
x = x + 1

Kodun gereksiz çalışmaması için altına goto 1
yazılırsa daha iyi olur çünkü çok fazla veri olursa yavaş çalışır abey.
Next i altınada 1 yazılır.

Refaz · 26 Eki 2021

Kodda birde küçük büyük harf duyarlılığı eklenmemiş Lcase yada Ucase yada option compare text vb... gibi abey.

vernel · 26 Eki 2021

askan' Alıntı:
döngüsüz paylaş bizde öğrenelim alternatif olsun

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

doğru Zafer hocam bu şekilde döngüsüz çalışyor

askan ve Refaz ilginize teşekkür ederim, kod harika

veyselemre · 29 Eki 2021

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü Alfabetik Sıralı Olmama

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol