mesafe ücreti

[manisali_mdr]

Şaban üstadım..Ali üstadım yazacaktım,yanlışlıkla Şaban Üstadım yazmışım..Uyarın için teşekkür eder,özür dilerim..

 

[Ali]

Şaban üstadım..Ali üstadım yazacaktım,yanlışlıkla Şaban Üstadım yazmışım..Uyarın için teşekkür eder,özür dilerim..

Ne yaptığınızı bilmiyorum ama hesaplamayı yapıyor.

.

 

[manisali_mdr]

sorun sanırım bende..örnek dosyayı düzenleyip yollar mısınız?

 

[uzmanamele]

sorun sanırım bende..örnek dosyayı düzenleyip yollar mısınız?

merhaba

syn manisalı_mdr, biz değil siz örnek dosyanızı düzenleyerek tekrar ekleyiniz,

syn manisalı_mdr,
biz, sizlerin sorularınızın çözümünü elimizden geldiği kadar yapmaya çalışıyoruz.
siz yıllardır öğretmenlik yaptınız, çok iyi bilmelisiniz.
kendinizi öğretmen bizleri öğrenci yerine koyun; siz soruyorsunuz biz cevaplandırıyoruz.
sizin sorduğunuz soru bizim verdiğimiz cevabın yanlış olması sonucunu doğuruyor. çünkü sorunuz ya yanlış ya da eksik.
burada hata soruyu soranda mı cevabı verende mi?

 

[manisali_mdr]

Ali üstadım..formülü değil de dosyayı düzenleyip gönderebilir misiniz?

 

[manisali_mdr]

Uzmanamele üstadım..yazdıklarınızdan inanın birşey anlamadım ve gerçekten çok üzüldüm..hatanın bende olduğunu söyledim zaten..hata elbette soruyu soranda,yani bende..ama inanın formülü buradan kopyalayıp b1 hücresine yapıştırıyorum..hücrede text şeklinde aynen yapıştırdığım gibi kalıyor..ben de şaşırdım.

 

[Ali]

Dosyanız ektedir.

 

[manisali_mdr]

örnek dosyayı yeniden yolluyorum

Uzmanamele üstadım..örnek dosyayı eklemeyi unutmuşum..düzenleyip tekrar yolladım..bu sefer sizi hayli uğraştırdım..yaşlılığımıza verin artık..

 

[manisali_mdr]

Ali üstadım..isteklerimi tam olarak anlatan örnek dosyayı en sona ekledim..buprogram bana yarın sabaha lazım..ilgilenirseniz sevinirim

 

[manisali_mdr]

Mesafe ücreti

Üstadlarım merhaba..Bu konuyu daha önce açmıştım fakat tam istediğim yanıtı alamadım..konu eskidiği için üstadlarım da sanırım yanıt veren olmuştur düşüncesiyle ilgilenmedi sanırım.tüm istediklerimi anlatana örnek dosyanın son halini ekledim..bu programa çok ihtiyacım olduğu için konuyu tekrar açtım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Sayfa2 nin kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range, X As Byte, Sütun As Byte
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
        If Target <> Empty Then
        Range("B" & Target.Row, "IV" & Target.Row).ClearContents
        Sütun = 2
        
        Set BUL = Sheets("Sayfa1").Range("A:A").Find(Target)
        If Not BUL Is Nothing Then
            
            For X = 2 To Sheets("Sayfa1").Range("IV1").End(1).Column
                If Sheets("Sayfa1").Cells(BUL.Row, X) <> Empty Then
                    Cells(Target.Row, Sütun) = Sheets("Sayfa1").Cells(BUL.Row, X)
                    Sütun = Sütun + 1
                End If
            Next
            
            Cells.EntireColumn.AutoFit
        End If
        Set BUL = Nothing
    End If
End Sub

 

[manisali_mdr]

Üstadım..tam istediğim gibi (yani HARİKA) olmuş...ilginize,bilginize,emeğinize,yüreğinize sağlık..

 

[manisali_mdr]

Üstadım ufak bir ekleme sorum olacak..Sayfa1'in yanına Sayfa2 ve diğer sayfalarda aynı şeyleri
taratabilir miyim?

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[manisali_mdr]

Mesafe ücretleri

üstadım örnek dosyayı ekliyorum..ilk gönderdiğin gerçekten harika..ama bu ufak ayrıntıyı unttuğum ve size bir zahmet daha verdiğim için özür diliyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SAYFA As Worksheet, BUL As Range, X As Byte, Satır As Long, Sütun As Byte
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
        If Target <> Empty Then
        Range("B:IV").ClearContents
        Satır = 1
        
        For Each SAYFA In Worksheets
            If SAYFA.Name <> "Sorgulama" Then
            Sütun = 3
                With SAYFA
                   Set BUL = .Range("A:A").Find(Target)
                   If Not BUL Is Nothing Then
                
                       Cells(Satır, 2) = .Name
                       
                       For X = 2 To .Range("IV1").End(1).Column
                           If .Cells(BUL.Row, X) <> Empty Then
                           Cells(Satır, Sütun) = .Cells(BUL.Row, X)
                           Sütun = Sütun + 1
                           End If
                       Next
                   
                   Satır = Satır + 1
                   Cells.EntireColumn.AutoFit
                   End If
                End With
            End If
        Next
        
        Set BUL = Nothing
        End If
End Sub

 

[manisali_mdr]

Üstad..Muhteşem olmuş...Çok ama çok teşekkür ederim..

 

[manisali_mdr]

üstadım..ufak bir eklenti yapmamız mümkün mü?
diyelim ki ORDU+İZMİR yazdık.
taramayı ;
100
200 250 300
200
250 200
200
şeklinde değil de;

100
200 250 300
200
250 200
200

şeklinde sıralarsa hem görsellik açısından hem de bizim takibimiz açısından biraz daha kolaylık sağlayacak bana

 

[manisali_mdr]

arkadaşlar..benim yazdığım şekil bu değildi ama..ilk bölümde her satırdaki rakamlar bir üst satırın bittiği yerden başlıyordu..sanırım boşluğu görmedi..boşluk yerlere nokta koyarak tekrar yazayım madem
100
..........200 250 300
........................................200
..................................................250 200
....................................................................................200

 

[Korhan Ayhan]

Selamlar,

Mesela ADANA için görmek istediğiniz sonucu dosyanız üzerine uyarlayıp eklermisiniz.