Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-04-2017, 12:34   #1
xyiskarx
 
Giriş: 21/04/2017
Şehir: Aydın
Mesaj: 2
Excel Vers. ve Dili:
2016 türkçe
Exclamation Bir sonraki harf ile değiştirme

Arkadaşlar Acil Olarak Yardımınızı İstiyorum...
Mesela A1 sütununda "Yavuz" Diye Bir Metin Var Ben Bunu İki Harf Ötelenmiş Halde B1 De Görmek İstiyorum Bunun Formülü Nedir?

Örnek: A1: YAVUZ =Bu Yazı B2de: ZBYÜA Bu hale gelecek bu bir harf ötelenmiş hali
xyiskarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 15:29   #2
xyiskarx
 
Giriş: 21/04/2017
Şehir: Aydın
Mesaj: 2
Excel Vers. ve Dili:
2016 türkçe
Varsayılan

Yok Mu Yardım Edebilecek Biri?
xyiskarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 17:46   #3
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,209
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Başlığınız forum kurallarına uygun olmalıdır.

Bu sebeple cevap alamıyor olabilirsiniz.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 18:08   #4
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,404
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

Formüllü çözüm nasıldır bilmiyorum. Kod işinize yarayacaksa
Alıntı:
Sub Ötele()
On Error Resume Next
x = Len(Range("C1"))
For i = 1 To x
a = WorksheetFunction.VLookup(Mid(Range("C1"), i, 1), Range("A1:B29"), 2, 0)
b = b & a
Next
Range("C2") = b
End Sub
deneyiniz.
A1:A29 ABC...VYZ şeklinde
B1:B29 aralığına BCD ... YZA şeklinde yazınız.

C1 hücresine kelimenizi yazınız. Kod çevrilmiş halini C2ye yaar.
__________________
---------------------------------------------------
biliyorsan konuş ibret alsınlar,
bilmiyorsan sus adam sansınlar!
---------------------------------------------------
Muhammet Okumuş Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 22:13   #5
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,678
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

[Düzeltme: Muhammet bey'in verdiği örnekte aynı işlemi yapıyor. Alternatif olsun. ]

Kodları Module yapıştırın. Daha sonra herhangi bir hücreye; =Cevir(hücre_adresi) yazınız.

=Cevir(A1) gibi.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function Cevir(hcr)
    
    Dim j As Byte, a As Byte, s1(), s2(), k As Byte, d, deg
    
    s1 = Array("c", "C", "g", "G", "ı", "I", "o", "O", "s", "S", "u", "U", "z", "Z", "p", "P", "v", "V", "h")
    s2 = Array("ç", "Ç", "ğ", "Ğ", "i", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü", "a", "A", "r", "R", "y", "Y", "ı")

    For j = 1 To Len(hcr)
        a = 0
        deg = Mid(hcr, j, 1)
        If Asc(Mid(hcr, j, 1)) = 32 Then
            d = d & " "
        Else
            For k = 0 To UBound(s1)
                If deg = s1(k) Then
                    d = d & s2(k)
                    a = 1
                    Exit For
                End If
            Next k
            If a = 0 Then
                If Asc(deg) + 1 > 122 Then
                    For k = 0 To UBound(s1)
                        If deg = s2(k) Then
                            d = d & Chr(Asc(s1(k)) + 1)
                            a = 1
                            Exit For
                        End If
                    Next k
                Else
                    d = d & Chr(Asc(deg) + 1)
                End If
            End If
        End If
    Next j
    Cevir = d
        
End Function
.
__________________
.

Bu mesaj en son " 21-04-2017 " tarihinde saat 22:41 itibariyle Ömer tarafından düzenlenmiştir.... Neden: açıklama düzeltme
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 12:41


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden