sıralama butonu ve makrosu

[sandokan]

örnetkteki dosyada bilgi sayfasında anasayfa butonun sagına bir yere sırala diye bir buton koyup sırala diyip tıkladıgımızda ye göre sıralama yapabilirmiyiz
not: veri alagı c-AA sutunları arasındadir
koruma şifresi = OT

 

[İhsan Tank]

sıralama neye göre yapılacak.
isme göre mi_?

 

[sandokan]

evet isme göre yapılacak

 

[İhsan Tank]

evet isme göre yapılacak

eki inceleyin
şifreniz aynıdır

 

[sandokan]

olmadi run time 1004 range sınıfının sort yontemi başarısız uyarısı verdi mvb de debug diyor

 

[İhsan Tank]

olmadi run time 1004 range sınıfının sort yontemi başarısız uyarısı verdi mvb de debug diyor

sizin eklediğiniz makroda bir problem var
o makronun çalışmasını engellerseniz çalışıyor
sizin makronuz benim pc'de hata verdi ondan o kodu durdurarak denedim. sizde bir daha deneyin.

Private Sub Worksheet_Calculate()
       Dim oPic As Picture
        Me.Pictures.Visible = False
        With Range("f2")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    [COLOR="Red"]oPic.Top = .Top[/COLOR]                    
oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    End Sub

kırmızıya boyadığım yerde hata veriyor bende

 

[İhsan Tank]

olmadi run time 1004 range sınıfının sort yontemi başarısız uyarısı verdi mvb de debug diyor

üstteki mesajım yanlış oldu
sayfa korumasını kaldırarak dener misiniz
bu arada şifreniz küçük harf olarak değiştirmişim yanlışlıkla

 

[sandokan]

olmadi sayin ihsan tank.

 

[İhsan Tank]

olmadi sayin ihsan tank.

sayfa korumasını kaldırırmısınız.
şifre = ot
şifrenin kalmış halini ekledim
üstten indirebilirsiniz.

 

[sandokan]

şimdi oldu ihsan tank

teşekkür ederim sıralamayı yaptı

 

[İhsan Tank]

şimdi oldu ihsan tank

teşekkür ederim sıralamayı yaptı

rica ederim
kolay gelsin :mutlu:

 

[sandokan]

sayın ihsan tank aynı şeyi bu dosyamada yapbilirmiyiz acaba
A-AM SUTUNLARI ARASINNI SIRALATMAM A SUTUNA GORE
FORM YAZANIN YANINA BUTON YİNE
BİRAZ YÜZSÜZLÜK YAPİYORUM AMA

 

[İhsan Tank]

sayın ihsan tank aynı şeyi bu dosyamada yapbilirmiyiz acaba
A-AM SUTUNLARI ARASINNI SIRALATMAM A SUTUNA GORE
FORM YAZANIN YANINA BUTON YİNE
BİRAZ YÜZSÜZLÜK YAPİYORUM AMA

buyrun ekte

 

[sandokan]

Cok özür dilerim ihsan tank buna ek bişey yapilmişti o dosyayı ekledim simdi sıralmayı buna ekleyecektik

A-AM SUTUNLARI ARASINNI SIRALATMAM A SUTUNA GORE

 

[İhsan Tank]

Cok özür dilerim ihsan tank buna ek bişey yapilmişti o dosyayı ekledim simdi sıralmayı buna ekleyecektik

A-AM SUTUNLARI ARASINNI SIRALATMAM A SUTUNA GORE

13. nolu mesajdaki dosyayı yeniledim.

 

[sandokan]

Sayın ihsan tank 15 ci mesajdaki dosyam farklı görünmeyen bir fark eklendi yazdırma alanıyla ilgili..o yüzden buna uyarlamak istiyorum
sıralama komutunu ve butonunu..

 

[İhsan Tank]

Sayın ihsan tank 15 ci mesajdaki dosyam farklı görünmeyen bir fark eklendi yazdırma alanıyla ilgili..o yüzden buna uyarlamak istiyorum
sıralama komutunu ve butonunu..

buyrun son dosyanız tıklayın

 

[sandokan]

çok teşekkür ederim ihsan tank..eline saglik

 

[İhsan Tank]

çok teşekkür ederim ihsan tank..eline saglik

rica ederim
iyi çalışmalar :mutlu: