ters çevirme

[ComaBlack]

selam arkadaşlar;

örneğin a sütununa ait satırlar şöyle olsun.

1- ali
2- 53426
3- papatya
4- bardak

şimdi bunları nasıl ters çevirebilirim. yani;

1- bardak
2- papatya
3- 53426
4- ali

bu işlemi nasıl yapabilirim?

 

[Merhum İdris SERDAR]

1. B1'den başlamak üzere yukarıdan aşağıya Doldur /Seriler ile bir sıra numarası verin.
2. Bu iki sütunu Veri / Sırala / B Sütununa göre Azalan diye sıralatın. sonra B'deki sıra numaralarını silin.

 

[Necdet]

Buyurunuz Sayın ComaBlack,
Dosya ve Açıklaması Ektedir.

İyi Akşamlar

Edit : Böyle Uzun formüllerle uğraşmaktansa Sayın Yurttaş'ın mantığı daha kolay

 

[ComaBlack]

merhaba;

sayın yurttaşın dediğini yaptım (teşekkürler sayın yurttaş). ancak sizin gönderdiğinizde data olarak adlandırılma nasıl yapılıyor onu bilmiyorum.

onu da söyleyebilirseniz sevinirim. öğrenmişken 2sinide öğrenmek daha iyi olur heralde.

saygılar

 

[Necdet]

Sayın ComaBlack,

Aşağıdaki Linki İnceleyiniz

http://www.excel.web.tr/viewtopic.php?t=5668

Sayın Danersin bunları boşuna yazmış olmasın

 

[ComaBlack]

teşekkürler. fazlasıyla öğrendik bu akşam.

selamlar.

 

[Necdet]

Formüllerde "Doğal Dil" dedikleri hücre-alan adlandırma ile oluyor, Formüller daha kolay anlaşılır olduğu için bu yöntemi seçiyorum ben Sayın ComaBlack

 

[Bohun]

Text Box İkono Bende Aktif değil onu Nasıl Aktif hale getirebilirim
:cekic:

 

[MALIX]

1. B1'den başlamak üzere yukarıdan aşağıya Doldur /Seriler ile bir sıra numarası verin.
2. Bu iki sütunu Veri / Sırala / B Sütununa göre Azalan diye sıralatın. sonra B'deki sıra numaralarını silin.

Excel'e cok yeniyim sayin yurttas, bunu biraz acabilir misiniz? Veya baska yonetmler varmi arkadaslar ?

 

[Necdet]

Sayın MALIX,

1. b1 e 1
2. b2 ye 2 yazın
3. B1 ve B2 hücrelerini seçin
4. seçimin sağ alt köşesinde nokta işaretini tutun ve aşağıya doğru çekin

Bu durumda 1 den başlayarak seri numara yazmış oluruz. Sonra Sayın Yurttaşın anlattığı 2. basamağı uygulayın

 

[Ali]

Makro ilede yapılabilir.Alt+F11 ile VB düzenleyiciyi açıp Insert menüsünden bir module ekleyip içine aşağıdaki kodları ekleyin.

Sub Test()
    Call Tersinecevir(Selection)
End Sub
Sub Tersinecevir(Rng As Range)
    Dim Arr() As Variant
    Dim x As Long
    Dim y As Long
    If Rng.Rows.Count > 1 Then
        If Rng.Columns.Count > 1 Then
            MsgBox "Lütfen birden fazla satır yada sütun seçiniz"
            Exit Sub
        Else
            ReDim Preserve Arr(1 To Rng.Count)
            x = UBound(Arr)
            For y = 1 To UBound(Arr)
                Arr(y) = Rng.Cells(x, 1)
                x = x - 1
            Next y
            For y = 1 To UBound(Arr)
                Rng.Cells(y, 1) = Arr(y)
            Next y
        End If
    ElseIf Rng.Columns.Count = 1 Then
        MsgBox "Lütfen birden fazla satır yada sütun seçiniz"
        Exit Sub
    Else
        ReDim Preserve Arr(1 To Rng.Count)
        x = UBound(Arr)
        For y = 1 To UBound(Arr)
            Arr(y) = Rng.Cells(1, x)
                x = x - 1
            Next y
            For y = 1 To UBound(Arr)
                Rng.Cells(1, y) = Arr(y)
            Next y
    End If
End Sub

Tersine çevirmek istediğiniz satır yada sütunları seçip test modülünü çalıştırın.

 

[mehmett]

Sn fructose

Makro bilginizin oldukça iyi olduğu görülüyor ve bazen çok güzel kodlar yazıyorsunuz ama;

MALIX arkadaşımız,
1- Foruma bugün üye olmuş
2- Daha henüz ilk mesajını yazmış
3- "Excel'de çok yeni" olduğunu belirtmiş
4- Basit bir sıralama işleminin tekrar açıklanmasını istemiş
5- Sorusunu Excel'e yeni başlayanlar bölümünde sormuş.

Bu arkadaşımıza yukarıda verdiğiniz kodları çözüm önerisi olarak sunmak ne kadar faydalı olur? Bu kodlar yeni üye olan birinin gözünü korkutmaz mı. İlkokul birinci sınıfa başlayan birine 8. sınıf derslerini anlatmak gibi olmaz mı? Ne dersiniz?

 

[Ali]

Bu konuyu sadece Malix arkadaş incelemeyeceği ve diğer forum üyeleride inceleyeceği için alternatif olarak durması iyi olur diye düşündüm.

Sorusundada başka yöntemler varmı diye sormuş.

 

[İnvestigator]

Bu konuyu sadece Malix arkadaş incelemeyeceği ve diğer forum üyeleride inceleyeceği için alternatif olarak durması iyi olur diye düşündüm.

Benim için faydalı oldu teşekkür ederim.

 

[MALIX]

Hepinize tesekkurler .