• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Sıralama ile ilgili makro acil yardım.

M

mehvano

Katılım
28 Mart 2006
Mesajlar
8
Excel Vers. ve Dili
Office 2003 Tr
Ekte bir çalışma sayfası veriyorum. Yapmak istediğim şu.

Bir sütundaki verileri mevcut olan iki makro ile bir düğmeye "a dan z ye" ve "z den a ya"
otomatik sıralamak istiyorum. örnekte adı kısmında adı hücresine tıklandığı zaman verileri
a dan z ye sıralamakta aynı hücreye tekrar tıklayarak z den a ya çevirmek istiyorum. iki ayrı düğme istemiyorum. (A1 ve A2 deki işlemleri sadece A1 de yapmak istiyorum ilk tıkta a dan z ye ikinci tıklamada z den a ya çevirmek) Yardımlarınız için şimdiden teşekürler...
 

Ekli dosyalar

Dosyanız ektedir.:cool:
A1 hücresine Çift tıklayınız.:cool:
Kod: 
Public sirala As Boolean
Sub Makro1() 'a dan z ye
[A2:H65536].Sort Key1:=[A2], Order1:=xlAscending
End Sub
Sub Makro2() 'z den a ya
[A2:H65536].Sort Key1:=[A2], Order1:=xlDescending
End Sub
Sub RunMacro()
    If sirala = False Then
        Call Makro1: sirala = True
        Else
        Call Makro2: sirala = False
    End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Cancel = True
Call RunMacro
End Sub
 

Ekli dosyalar

Çok teşekür ediyorum çok kısa sürede yardım ettiniz. eğer vaktiniz varsa bir şey daha istiyecektim. bunu b1+c1+d1 başlıkları içinde yapabilirmiyiz. yoksa aynı makroyu çoğaltıp yapmakmı daha kolaydır. Birde sıralarken sağdaki ve soldaki verileride ona göre değiştiren fonksiyonundan olursa çok sevinirim.
 
Son düzenleme:
mehvano' Alıntı:
Çok teşekür ediyorum çok kısa sürede yardım ettiniz. eğer vaktiniz varsa bir şey daha istiyecektim. bunu b1+c1+d1 başlıkları içinde yapabilirmiyiz. yoksa aynı makroyu çoğaltıp yapmakmı daha kolaydır.
Genişletmek için tıkla ...
Yani B1'e tıkalnacaksa B sütununu ,C1 'e tıklanırsa C sütununu,D1'e tıklanırsa D sütununumu sıralasın?:cool:
 
Evet tam olarak öyle ama sağındaki ve solundaki verilerde ona göre sıralansın. yani sırala denildiğinde seçimi genişlet seçeneği geldiği gibi sıralamsını istiyorum.
 
mehvano' Alıntı:
Evet tam olarak öyle ama sağındaki ve solundaki verilerde ona göre sıralansın. yani sırala denildiğinde seçimi genişlet seçeneği geldiği gibi sıralamsını istiyorum.
Genişletmek için tıkla ...
Dosyanız ektedir.:cool:
 

Ekli dosyalar

İşte budur... Allah sizden razı olsun. Belki çok oluyorum ama hücreye çift tıklamayı nasıl yaptınız makroları hep bir simgeye yada şekile tanıtıp yapıyordum yada kısa yolla.
 
mehvano' Alıntı:
İşte budur... Allah sizden razı olsun. Belki çok oluyorum ama hücreye çift tıklamayı nasıl yaptınız makroları hep bir simgeye yada şekile tanıtıp yapıyordum yada kısa yolla.
Genişletmek için tıkla ...
Çalışma sayfasının modülüne.
Sizin dosyanızda Sayfa1 modülüne Dobble_click olayına yazdım.:cool:
 
Verdiğiniz bilgiler ve yardımlarınız için tekrar çok teşekür ediyorum. Emeğinize sağlık...
 
Çalışma sayfası modülündeki kodu aşağıdaki şeklide yazarak dahada kodu kısaltabiliriz.Ben denedim sorunsuz çalışıyor.
Kod: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:D1]) Is Nothing Then Exit Sub
Cancel = True
[B][COLOR="Red"]Run Replace(Left(Target.Address, 2), "$", "") & "_sutunu"[/COLOR][/B]
End Sub
 
Hücrede seçilenin listesi sıralansın

Hayırlı geceler,Excell de maaş bordromu hazırladım ve kendimce oluşturduğum genel giderler kısmı hakkında bilgi almak istiyordum.hazırlamış olduğum bordromun bir bölümüne aylık olarak yapmış olduğum alışverişleri ürün bazında kaydederek listelemek istiyorum.şöyle:BİM mağazasından yaptığım alışverişleri ürün bazında ekleyerek Bim'i seçtiğimde Bim ürün listesine eklediğim ürünler listelensin,A101'i seçtiğimde A101'in ürünleri,MOPAŞ'ı seçtiğimde MOPAŞ'ın ürünleri listelensin.BİM,A101,MOPAŞ ve diğerleri aynı hücreden seçilecek,BİM seçildiğinde BİM'in ürün listesi sıralanacak...biraz uzun oldu ama herhalde sorunumu aktarabildim,yardımcı olursanız sevinirim...
 
arkadaşlar çalışma gayet güzel olmuş
ufak bi ekleme yapabilirsek benim de işime yarıycak

a1 hücresine çift tıklanınca A sütununu A dan Z ye sıralarken aynı anda B den Z ye kadar olan sütunları da sıralamasını sağlayuabilir miyiz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst