Hızlı Cevap Alanına [CODE][/CODE] Tagları Kullanımı Ekleme

[Murat OSMA]

Sanırım son iki mesaj aynı konu ile ilgili...

Eğer mümkünse; Korhan Bey'in belirtiği nedenden dolayı bunun gerekli olduğunu düşünüyorum.
Ama sanırım Hüseyin Bey'in önceki bir mesajda belirttiği gibi; "Uygulama CODE /CODE tagları içinde ne görüyorsa tıklandığında seçili yapıyor." bu mümkün olmayacak...

 

[ExcelF1]

Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Satır As Long
    Dim Kontrol_1 As Byte, Kontrol_2 As Byte
    Dim Veri, WF As WorksheetFunction

[COLOR="Red"]    
[B]    
Set S1 = Sheets("Veri Girişi")
Set S2 = Sheets("Tutanak")
Set WF = WorksheetFunction
[/B]
[/COLOR]


    Satır = 25
    
    S2.Range("A25:J" & Rows.Count).ClearContents
    
    For X = 2 To S1.Cells(Rows.Count, 1).End(3).Row
        On Error Resume Next
        Veri = WF.Round(S1.Cells(X, "N") / S1.Cells(X, "K"), 3)
        On Error GoTo 0
        
        If S1.Cells(X, "N") <> 0 And S1.Cells(X, "K") = 0 Then
            Kontrol_1 = 1
        ElseIf Veri >= 0.045 And Veri <= 0.055 Then
            Kontrol_1 = 1
        ElseIf Veri >= 0.095 And Veri <= 0.105 Then
            Kontrol_1 = 1
        ElseIf Veri >= 0.14 And Veri <= 0.155 Then
            Kontrol_1 = 1
        ElseIf Veri = -1 Then
            Kontrol_1 = 1
        ElseIf Veri = 0 Then
            Kontrol_1 = 1
        End If
        
        On Error Resume Next
        Veri = WF.Round(S1.Cells(X, "M") / S1.Cells(X, "S"), 3)
        On Error GoTo 0
        
        If S1.Cells(X, "M") <> 0 And S1.Cells(X, "S") = 0 Then
            Kontrol_2 = 1
        ElseIf Veri >= 0.045 And Veri <= 0.055 Then
            Kontrol_2 = 1
        ElseIf Veri >= 0.095 And Veri <= 0.105 Then
            Kontrol_2 = 1
        ElseIf Veri >= 0.14 And Veri <= 0.155 Then
            Kontrol_2 = 1
        ElseIf Veri = -1 Then
            Kontrol_2 = 1
        ElseIf Veri = 0 Then
            Kontrol_2 = 1
        End If
        
        If Kontrol_1 <> 1 Or Kontrol_2 <> 1 Then
            S2.Cells(Satır, 1) = S1.Cells(X, "D")
            S2.Cells(Satır, 2) = S1.Cells(X, "E")
            S2.Cells(Satır, 3) = S1.Cells(X, "G")
            S2.Cells(Satır, 4) = S1.Cells(X, "H")
            S2.Cells(Satır, 5) = S1.Cells(X, "I")
            S2.Cells(Satır, 6) = S1.Cells(X, "J")
            S2.Cells(Satır, 7) = S1.Cells(X, "K")
            S2.Cells(Satır, 8) = S1.Cells(X, "M")
            S2.Cells(Satır, 9) = S1.Cells(X, "N")
            S2.Cells(Satır, 10) = S1.Cells(X, "S")
            Satır = Satır + 1
        End If
    
        Kontrol_1 = 0: Kontrol_2 = 0
    Next
                
    S2.Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    Set WF = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Murat OSMA]

Sn. ExcelF1, denemelerinizi lütfen bu başlık altında yapınız...

 

[ExcelF1]

Neden ? Konu zaten burada.

 

[Hüseyin]

Neden ? Konu zaten burada.

Yanlış anlamalar olmasın diye ben yorumlamaya çalışayım.

TEST Bölümüne yazılan mesajlar Ana sayfada ki "Son 30 Mesaj" listesinde görünmüyor.
Yani siz gönül rahatlığı ile denemeler yapabilirsiniz.
Oysa burada bir deneme yaptığınızda yeni mesaj olduğu için bu konuya yeni yazıldı gibi görünüyor ve mesaj Son 30 Mesaj listesinde göründüğü için bir sürü takipçi yeni mesajı görmek için bu mesajı açıyor ve "aaa, sadece bir denemeymiş" diyerek vakit kaybediyor.


Sanırım Murat Bey'in tavsiyesinin arkasında bu düşünce vardı....

 

[Murat OSMA]

Çünkü gereksiz yer kaplıyor ve yöneticiler zaten denemeleri yapıyorlar.
Bize gerek kalmıyor. Dilerseniz test alanında deneme yapıp, oradaki linki verebilirsiniz...

Bakınız: http://www.excel.web.tr/f56/

 

[ExcelF1]

Açıklamalar için teşekkür ederim.

 

[Mahir64]

Merhaba Hüseyin Bey,

Güzel olmuş elinize sağlık.

 

[Orion1]

Merhaba.
Tıklayınce code içindekilerin tamamı seçili olması bence iyi olmamış.
belki ben sadece 2 satır seçicem.Fakat code içinde 5 satır var.Elim kolum bağlanıyor.tıklayınca 5 satırın tamamı seçiliyor.
Tamam 5 satırı alıp yapıştırayım 3 satırı sileyim o zaman olur ama ya 15 - 20 satırsa daha çok işlem oluyor.
Bence tekrar bu durumu eskisi gibi olursa iyi olur.

 

[YUSUF44]

Merhaba.
Tıklayınce code içindekilerin tamamı seçili olması bence iyi olmamış.
belki ben sadece 2 satır seçicem.Fakat code içinde 5 satır var.Elim kolum bağlanıyor.tıklayınca 5 satırın tamamı seçiliyor.
Tamam 5 satırı alıp yapıştırayım 3 satırı sileyim o zaman olur ama ya 15 - 20 satırsa daha çok işlem oluyor.
Bence tekrar bu durumu eskisi gibi olursa iyi olur.

Bir daha tıklayıp seçimi iptal edebilir ve sonra da istediğiniz satırları seçip kopyalayabilirsiniz. Sanıyorum burdaki kodlardan yararlananların büyük çoğunluğu kodların tamamını kopyalıyordur. Arada sizin gibi bilinçli olarak satır seçecekler için de istediğinizden sadece bir fare tıklaması daha fazla kullanımı problem olur mu bilmiyorum.

 

[snx111]

Evet ikinci tıkta normale dönse orion1 rinde istediği gerçekleşmiş olurdu .ama şu an aradan kod seçme şansımız yok

 

[Murat OSMA]

Opera Browser ile;

[FLASH]http://s1.directupload.net/images/120605/ofietlwz.swf width=475 height=180[/FLASH]

 

[YUSUF44]

Ben chrome'dan deniyorum ve satır seçmede problem yok.

 

[snx111]

firefox kullanıyorum hepsini seçiyor ; videodaki gibi olmuyor! 2 ci tıklamada aynı 3 de 4 de 5 de 6 da aynı

 

[Orion1]

firefox kullanıyorum hepsini seçiyor ; videodaki gibi olmuyor! 2 ci tıklamada aynı 3 de 4 de 5 de 6 da aynı

Sanırım firefox tan kaynaklanıyor.
bendede firefox var.ayni sorunu yaşıyorum.

 

[Murat OSMA]

Evet.. Chrome'da ve Internet Explorer'da hiç bir sorun yok.
Opera'da videodaki gibi.
Firefox'ta nothing...

 

[Korhan Ayhan]

Merhaba,

Ben Internet Explorer 8 kullanıyorum. Ve hiçbir şekilde istediğim satırları seçemiyorum. Sürekli olarak tümü seçili oluyor.

 

[Murat OSMA]

Korhan Bey, bende de Internet Explorer 8 yüklü.
Şu şekilde seçilebiliyor: Mouse sol tuşu ile istediğiniz satırları seçin ve parmağınızı sol tuştan çekmeden, sağ tuşu tıklayın.

[FLASH]http://s7.directupload.net/images/120606/vas73txj.swf width=305height=175 [/FLASH]

sub emre()
msgbox "seçiliyorum"
end sub

 

[Korhan Ayhan]

Merhaba,

Bende maalesef videodaki gibi olmuyor...

Son olarak Explorer ayarlarını sıfırlayıp denedim. Oluyor fakat çok zahmetli. Ben Hüseyin beye konuyu ilettim. Kendisi müsait bir zamanda farklı bir ayarlama yapacağını belirtti.

 

[Murat OSMA]

Anladım Korhan bey,

Öylesi daha iyi olur...

Daha önce bu konu ile ilgili, kodun hemen üzerinde Tümünü Seç seçeneği bulunmaktadır demiştiniz.
Kopyalama ile ilgili bahsi geçen sorunları yaşamamak adına, Tümünü Seç seçeneğini ilave etmek en iyisi gibi görünüyor. Dileyen tümünü seçer, dileyen de koddan istediği kısmı alır...

Bazı bu tarz forumlarda hemen kod penceresinin üst satırında "Tümünü Seç" seçeneği bulunmaktadır.

Bu seçeneğe tıkladığınızda kod penceresindeki tüm kodlar otomatik seçiliyor. Kullanıcıya sadece kopyala komutunu vermek kalıyor.

İyi akşamlar.