düğme1 tıklat ="x"

[Emsdmr]

Merhaba;
Aynı konu belki vardır ama konu başlığını nasıl aratmam gerektiğini bilemediğim için yeni konu açıyorum. Kusura bakmayın arkadaşlar.

Düğme 1 e Her tıkladığımda A1 Hücresi Önce "/" ikinci tıkladığımda "x" olmalı.
yani düğme 1 eğer 5 kez tıklanmışsa A1 deki veri = "xx/" olmalı.

Hepinize sonsuz saygılarımla teşekkürler.

 

[asi_kral]

Merhaba
5. Kez tıklanınca ="xxxx/" olması gerekmiyor mu_?

 

[Emsdmr]

asi_kral_1967 ;

Hücrenin ilk karakteri buton tıklanınca "/" bu, ikinci tıklamada karakter "x" bu üçüncü tıklamada "x/" bu böyle devam etmeli. Yani dördüncü tıklamada karakter "xx" oluyor.

ilginize teşekkür ederim

 

[asi_kral]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub değişik_karakter()
With WorksheetFunction
If Range("A1") = Empty Then
Range("A1") = "/"
ElseIf .CountIf(Range("A1"), "*/*") > 0 Then
Range("A1") = Replace(Range("A1"), "/", "x")
Else
Range("A1") = Range("A1") & "/"
End If: End With
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

 

[Emsdmr]

asi_kral_1967
ilginize teşekkür ederim.
Vermiş olduğunuz kodlar işimi görmemde çok faydalı oldu.

 

[asi_kral]

asi_kral_1967
ilginize teşekkür ederim.
Vermiş olduğunuz kodlar işimi görmemde çok faydalı oldu.

Kolay gelsin.

 

[Emsdmr]

sayın asi_kral_1967 ;

Bu Hücre ("A1") içindeki verilerden x olanları 2 / olanları 1 sayarak ("A2") de toplayabilirmiyiz.
Saygılarımla.

 

[asi_kral]

sayın asi_kral_1967 ;

Bu Hücre ("A1") içindeki verilerden x olanları 2 / olanları 1 sayarak ("A2") de toplayabilirmiyiz.
Saygılarımla.

Merhaba

Option Explicit
Sub değişik_karakter()
With WorksheetFunction
If Range("A1") = Empty Then
Range("A1") = "/"
ElseIf .CountIf(Range("A1"), "*/*") > 0 Then
Range("A1") = Replace(Range("A1"), "/", "x")
Else
Range("A1") = Range("A1") & "/"
End If
Range("A2") = .CountIf(Range("A1"), "*/*") * 1 + _
.CountIf(Range("A1"), "*x*") * 2
End With
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

Bunu dener misiniz_?

 

[Emsdmr]

Merhaba

Option Explicit
Sub değişik_karakter()
With WorksheetFunction
If Range("A1") = Empty Then
Range("A1") = "/"
ElseIf .CountIf(Range("A1"), "*/*") > 0 Then
Range("A1") = Replace(Range("A1"), "/", "x")
Else
Range("A1") = Range("A1") & "/"
End If
Range("A2") = .CountIf(Range("A1"), "*/*") * 1 + _
.CountIf(Range("A1"), "*x*") * 2
End With
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

Bunu dener misiniz_?

Sayın asi_kral_1967;

Bu kod biraz farklı çalıştı . A2 Hücresi bir 2 oluyor bir 3 toplamı vermiyor malesef ben yanlış izah ettiysem şöyle anlatayım birde Hücre içinde xxx/ karakterlerini gördüğünde kod A2 de 7 demeli mesela

 

[YUSUF44]

A2'ye aşağıdaki formülü yazınız:

=EĞER(SAĞDAN(A1;1)="/";UZUNLUK(A1)*2-1;UZUNLUK(A1)*2)

 

[YUSUF44]

Kod olarak da şunu kullanabilirsiniz:

Option Explicit
Sub değişik_karakter()
With WorksheetFunction
If Range("A1") = Empty Then
Range("A1") = "/"
ElseIf .CountIf(Range("A1"), "*/*") > 0 Then
Range("A1") = Replace(Range("A1"), "/", "X")
Else
Range("A1") = Range("A1") & "/"
End If
Range("A2").FormulaR1C1 = _
        "=IF(RIGHT(R[-1]C,1)=""/"",LEN(R[-1]C)*2-1,LEN(R[-1]C)*2)"
End With

End Sub

Sondaki "işlem tamam" satırını sildim, isterseniz siz ilave edebilirsiniz.

Kodu üreten arkadaşımız sayın asi kral'a da teşekkürler bu arada.

 

[Emsdmr]

Sayın YUSUF44 Teşekkürler bu kod da Benim için yeterli asi_kral_1967 sizede ayrıca teşekkür etmeyi borç bilirim.Alakanız için sağolun

 

[asi_kral]

Sayın YUSUF44 Teşekkürler bu kod da Benim için yeterli asi_kral_1967 sizede ayrıca teşekkür etmeyi borç bilirim.Alakanız için sağolun

Merhaba
Bu kodu kullanabilirsiniz_?

Option Explicit
Sub değişik_karakter()
With WorksheetFunction
If Range("A1") = Empty Then
Range("A1") = "/"
ElseIf .CountIf(Range("A1"), "*/*") > 0 Then
Range("A1") = Replace(Range("A1"), "/", "x")
Else
Range("A1") = Range("A1") & "/"
End If
If .CountIf(Range("A1"), "*/*") > 0 Then
Range("A2") = (Len(Range("A1")) - 1) * 2 + 1
Else
Range("A2") = Len(Range("A1")) * 2
End If
End With
MsgBox "İşlem Tamamlandı", vbInformation
End Sub