Alfabe

[ahmethuseyin]

Sizlerin burda yapmis oldugu calismalardan kendime ufak bir calisma yapmaya calistim,ama alfabe mantigini yapamadim ekklemis oldugum excel de acikladim,
yardimci olursaniz sevinirim

saygilarimla

 

[antonio]

Kodlarınızın arasına sadece kırmızı ile işaretli kod satırını da yerleştirin (aynı yere) öyle deneyin.

Sub dolgu59()
Dim sat As Long, hcr As Range, sh As Worksheet
Sheets("TABLO1").Select
sat = Cells(Rows.Count, "A").End(xlUp).Row
Set sh = Sheets("TABLO")
sh.Range("A10:F300").ClearContents
For Each hcr In Range("A10:F" & sat)
    If (Range("A" & hcr.Row).Value) [COLOR="Red"][B]<> ""[/B][/COLOR] Then sh.Range(hcr.Address).Value = hcr.Value
Next
sh.Select

[COLOR="Red"][B]sh.Range("A10:F300").Sort sh.Range("C10"), xlAscending, Header:=xlNo[/B][/COLOR]

Set sh = Nothing
MsgBox "BITTI """

End Sub

 

[ahmethuseyin]

Tesekurler

Antonia ellerinize saglik tamistedigim sekilde olmus,
Tesekurler

Saygilarimla

 

[antonio]

Rica ederim. İyi çalışmalar, kolay gelsin.
antonio