Makro ile hücre ve hücre değeri saytırmak otomatik sıralama yapmak.

[ahzola]

Bunu tahmin ettiğim için söylemiştim.
kodu yapıştırıp çalıştır dediğim zaman.
Bir önceki formülü getiriyor.

Siz yazdığnızı formülü belirtilen kriterlere
göre dosya oluşturursanız şayet
inşallah olacak.

 

[ahzola]

F6 BW6
F84 BW84 satırları arasında çalışacak.

D sütununada dolu hücre sayısını verecek.

 

[Mustafa MUTLU]

Mustafa bey
teşekkür ederim alakanız için. Denemeden
yazıyorum. Sizde 2003 kullanıyorsunuz.
Şayet çalıştı ise. Kitap halinde yayınlayabilirmiziniz.
zahmet olmaz ise
Allah sizden razı olsun. 3 4 gündür
bununla uğraşıyorum.
İnşallah halledeceğiz

Buyur Kardeşim..
Verilerin yerleri değişmiş olabilir kontrol et.
Dosya son mesaja taşınmıştır

 

[Mustafa MUTLU]

F6 BW6
F84 BW84 satırları arasında çalışacak.

D sütununada dolu hücre sayısını verecek.

F2 BV84 almıştım
BV leri BW olarak değiştirmek gerekiyor.
Ben Değiştirdim..

Yeni Dosyan Ekte

 

[ahzola]

:dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua:

Mustafa Beyyyyyyyyyyy
Allah sizden razı olsun ne muradınız var ise olur inşallah.

 

[Mustafa MUTLU]

:dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua::dua:

Mustafa Beyyyyyyyyyyy
Allah sizden razı olsun ne muradınız var ise olur inşallah.

Amin..
Yardımım dokundu ise ne mutlu..
İyi Geceler..

 

[ahzola]

Amin..
Yardımım dokundu ise ne mutlu..
İyi Geceler..

Çok büyük yardım ettiniz bana inanın.
İnşallah herşey gönlünüzce olur.
Vallahi 3 4 gündür bu dosya için çalışıyordum.

telaş ile bir mevzuyuu unutmuşum.
eğer mümkün ise ilave edebilirmisiniz acaba

Taşınan satırlara başlık atacağım B sütununa
Değeri ne olursa olsun taşınan sütunlar ile B sütunundaki değerlerde taşınırsa
süper olacak inanın.

 

[Mustafa MUTLU]

Çok büyük yardım ettiniz bana inanın.
İnşallah herşey gönlünüzce olur.
Vallahi 3 4 gündür bu dosya için çalışıyordum.

telaş ile bir mevzuyuu unutmuşum.
eğer mümkün ise ilave edebilirmisiniz acaba

Taşınan satırlara başlık atacağım B sütununa
Değeri ne olursa olsun taşınan sütunlar ile B sütunundaki değerlerde taşınırsa
süper olacak inanın.

Modüldeki Kodları sil.
Yerine Bu kodu yaz..



Sub Test()
Application.ScreenUpdating = False
[D6] = "=COUNTA(F6:BW6)"
Range("D6").Select
Selection.AutoFill Destination:=Range("D684")
Range("D684").Select
Selection.Copy
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
[A6] = "=D6"
Range("A6").Select
Selection.AutoFill Destination:=Range("A6:A84")
Range("A6:A84").Select
Selection.Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("A6:BW84").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

[C6] = "=SUM(F6:BW6)"
Range("C6").Select
Selection.AutoFill Destination:=Range("C6:C84")
Range("C6:C84").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


[A6] = "=D6-(C6/8400)"
Range("A6").Select
Selection.AutoFill Destination:=Range("A6:A84")
Range("A6:A84").Select
Selection.Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A6:BW84").Select
Selection.Sort Key1:=Range("B6"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Sheets("Sayfa1").Range("A2:A84").ClearContents
Application.ScreenUpdating = True

Range("B5").Select
End Sub

Kod içinde çıkan yerine : D arasında boşluk olmadan yazmalısın

 

[ahzola]

Teşekkür ederim Sayın
Mustafa MUTLU

Tüm güzellikler sizlerle olsun.
hoşçakalın.

 

[ahzola]

..........