Değişken değiştirme

[serkanım]

Merhaba Üstatlar

Bir değişken içinde arama yaparak değişiklik yapabilir miyiz.

İlgilenenlere teşekkürler,

Örnek;

Sub Makro2()
'
Dim sayı As String

sayı = "fit-214;"

' sayı değişkeni içinde ";" var ise
' yeni değişken "fit-214" olsun

End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    
    sayı = "fit-214;"
    aranan = ";"
    b = Split(sayı, aranan)
    If UBound(b) <> 0 Then
        sayı = "fit-214"
    End If
    
    MsgBox sayı
    
End Sub

. . .

 

[serkanım]

ek-soru

Merhaba Hüseyin Bey,

Hızlı cevabınız için teşekkürler. Fakat ben soruyu tam aktaramadım.

Değişken sabit olmadığı için sorun oluyor.

örneğin sayı değişkeni şu şekilde olsa kodu nasıl düzenleyebiliriz.

sayı = Range(" a" & i )

 

[Emir Hüseyin Çoban]

Aranan yani noktali virgul sabit mi.

.

 

[m.ilknur]

Merhabalar
yıllara göre kananların bulunduğu bir listenin için istenilen yılı başka bir hücreye yazdığımızda kazanan kişinin adını yan sütüna getirmesini, daha sonra aldığı puanıda diğer sütuna getirme işlemini nasıl yapabiliriz.
Teşekkürler

 

[serkanım]

Evet Sabit

Merhaba Hüseyin Bey,

Aranan yani ; hücre sonunda sabit Örnek aşağıdaki gibi

Aşağıdaki satırları döngü ile bir değişkene tanımladıktan sonra içinde";" varsa hücrede değişiklik yapmadan değişken içindeki değerden ; çıkarmak istiyorum.

Teşekkür ederim.


G17 G40 G49 G80;
T04
M3 S800;

M8
G90 G54
G43 Z50 H4;
G99;

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()

    sayı = Range("A" & i)
    aranan = ";"
    b = Split(sayı, aranan)
    If UBound(b) <> 0 Then
        sayı = Replace(Range("A" & i), ";", "")
    End If
    
    MsgBox sayı
    
End Sub

. . .

 

[serkanım]

Teşekkürler

Desteğiniz için teşekkür ederim hüseyin bey
İstediğim sonuca ulaştım.

Ben aşağıdaki kodla yapmaya çalıştım.
Ama farkı anladım.

Teşekkürler

sayı=sayı.Replace What:=";*", Replacement:=""

 

[Emir Hüseyin Çoban]

. . .

Amaç noktalı virgülü kaldırmaksa kontrol yaptırmaya gerek yok.
Şu şekilde de işinizi görür...

Sub KOD()
    sayı = Range("A" & i)
    aranan = ";"
    sayı = Replace(Range("A" & i), ";", "")
    
    MsgBox sayı
End Sub

. . .