[Yardım]  İki Hücre aralığındaki verileri Metne Çevirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İki Hücre aralığındaki verileri Metne Çevirme

İleti#1)  bekirizci » 24 Oca 2023 12:52

Merhaba;Değerli Arkadaşlar.

Çalışma sayfama bir buton ekledim ve bu butona bastığımda A1:A1000 Hücre aralığındaki sayısal verileri metne çevirmek (F2 -ENTER) ve otomatik kaydetmek istiyorum. Birkaç deneme yaptım ama istediğim gibi olmadı. Bu konuda yardımcı olur musunuz. Şimdiden Teşekkürler.
Kullanıcı avatarı
bekirizci
Yeni Başlamış
 
Adı Soyadı:bekir izci
Kayıt: 05 Ağu 2009 11:02
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara/sincan

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: İki Hücre aralığındaki verileri Metne Çevirme

İleti#2)  CENGİZHANTAHA » 24 Oca 2023 13:22

https://excelvba.net/viewtopic.php?f=4& ... ir#p247761 inceleyiniz. Ömer Bey'in kodları var. İnşallah işinizi görür.
Kullanıcı avatarı
CENGİZHANTAHA
Siteye Alışmış
 
Kayıt: 20 Kas 2018 11:29
Meslek: EMEKLİ
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAKARYA

Cevap: İki Hücre aralığındaki verileri Metne Çevirme

İleti#3)  bekirizci » 24 Oca 2023 13:29

Merhaba; Konuyu inceledim ama makrolardan çok anlamadığım için, bu kodlar bana çok karışık geldi. Kendi çalışma sayfama uyarlayamadım.
Kullanıcı avatarı
bekirizci
Yeni Başlamış
 
Adı Soyadı:bekir izci
Kayıt: 05 Ağu 2009 11:02
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara/sincan

Cevap: İki Hücre aralığındaki verileri Metne Çevirme

İleti#4)  Yken » 24 Oca 2023 23:37

Webden aldığım bir kodu paylaşıyorum.
xMacro adlı makro sayfada çalıştırılacak.
Sayfa kodu makrosu şu şekilde
Kod: Tümünü seç
Sub xMacro()
    Call convertToString("A1:A1000", ActiveSheet)
End Sub

Sub convertToString(ByRef xRange As String, Optional ByVal WSheet As Worksheet)
    Dim temp As Long
    Dim dataRange As Range
    Dim xCell As Object
    If WSheet Is Nothing Then Set WSheet = ActiveSheet
    Set dataRange = WSheet.Range(xRange).SpecialCells(xlCellTypeVisible)
    For Each xCell In dataRange
        If Not IsEmpty(xCell.Value) And IsNumeric(xCell.Value) Then
            temp = xCell.Value
            xCell.ClearContents
            xCell.NumberFormat = "@"
            xCell.Value = CStr(temp)
        End If
    Next xCell
End Sub
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 4 misafir

Bumerang - Yazarkafe