İçinde @ olanları b ye yazdırma

[ftek34]

a sütununa veri girildiğinde içinde(herhangi bi yerinde) @ işareti varsa b sütununa "var" yada "yok" diye yazan makro programı lazım.vize sınavındayım lütfen acil yardım edin.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Kontrol()
    
    Dim i As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If InStr(Cells(i, "A"), "@") > 0 Then
            Cells(i, "B") = "Var"
        Else
            Cells(i, "B") = "Yok"
        End If
    Next i
 
End Sub

.

 

[mancubus]

sınavda akıllı telefon serbest anladığım kadarı ile.

 

[NBATMAN]

Merhaba Kod aşağıdaki gibidir... Bu kod bir metin girişi ile değil metin girildikten sonra bir butona basılması kaydı ile gerekli işaretlemeyi yapar. Sen kendine göre uyarlarsın...

Option Explicit

Private Sub CommandButton1_Click()
On Error Resume Next
Dim son As Integer
Dim i As Integer
Dim LPosition As Integer
Dim AktifHücre As String

son = Range("A65536").End(3).Row ' A sutunundaki dolu satır sayısı bulunur.


For i = 2 To son ' A sutunundaki tüm hücreler ( başlık hariç) 2 den başlayarak en son dolu hücreye kadar dongu ile taranır
AktifHücre = Cells(i, "A") 'döngü ile katif hücre değeri alınır
LPosition = InStr(1, AktifHücre, "@") ' aktif hücrede Aranan "@" değerinin yerini (pozisyonu) öğrenilir

If LPosition = 0 Then
Cells(i, "B") = "Yok" 'Aktif hücrede aranıp bulunamayan "@" değeri için, yine aktif hücrenin bir sağındaki hücreye "Yok" yazılır.
Else
Cells(i, "B") = "Var" 'Aktif hücrede aranıp bulunan "@" değeri için, yine aktif hücrenin bir sağındaki hücreye "Var" yazılır.
End If

Next i

End Sub

 

[ftek34]

teşekkür ederim sayenizde 100 aldım. allah razı olsun )

 

[Necdet]

teşekkür ederim sayenizde 100 aldım. allah razı olsun )

Hem kopya çekiyorsunuz, hem de goca rabbımı bu işe karıştırıyorsunuz. Oluyor mu yani?