Kolondaki türe göre Açıklama Yazdırma

[esdrym]

Merhaba

Kulllandığımız programda işlemlerin türleri programın verdiği otomatik numaranın başındaki 2 haneye göre değişiyor. Fakat biz bu 2 handedeki numaraya göre değişen açıklama kolonu eklemek istiyoruz. Örneğimde sadece 3 türün açıklamasını yaptım.Eğer örnek verirseniz ben buna göre diğerlerini de ekleyebilirim. Yardım ederseniz çok sevinicem...

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub CommandButton1_Click()
Dim i As Long
For i = 2 To [B65536].End(3).Row
    With Cells(i, "B")
        .AddComment
        .Comment.Visible = False
            If Left(Cells(i, "B"), 2) = "21" Then
                Aciklama = "Satış Faturası"
            ElseIf Left(Cells(i, "B"), 2) = "55" Then
                Aciklama = "Virman"
            ElseIf Left(Cells(i, "B"), 2) = "60" Then
                Aciklama = "Çek"
            Else
                Aciklama = ""
            End If
        .Comment.Text Text:="[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]:" & Chr(10) & Aciklama
    End With
Next i
MsgBox "Açıklamalar Eklenmiştir........."
End Sub

 

[1Al2Ver]

Sayın Necdet Yeşertener, merhaba,

If Left(Cells(i, "B"), 2) = "21" Then

"21" yazan yere; eğer hücrede rakam var ise

Aciklama = "Satış Faturası" yazdırmak için "21" yazan yerde gereken değişiklik nedir ?

Teşekkür ederim.

 

[Necdet]

Merhaba,

21'i tırnak içine almamınnedeni soldan aldığımda text olarak algılamaktaydı. Rakama değiştirmemek için tırnak içine aldım.

Eğer hücreyi doğrudan denetlemek istiyorsanız ve hücre değeri rakamsa = 21 diyebilirsiniz.

 

[1Al2Ver]

Merhaba,

21'i tırnak içine almamınnedeni soldan aldığımda text olarak algılamaktaydı. Rakama değiştirmemek için tırnak içine aldım.

Eğer hücreyi doğrudan denetlemek istiyorsanız ve hücre değeri rakamsa = 21 diyebilirsiniz.

Teşekkür ederim, "hücre değeri herhangi bir rakamsa" demek istemiştim, bu durumda ne yapmalıyım ?

 

[Necdet]

Merhaba,

If IsNumeric(Cells(i, "a")) = True Then ......

Kullanabilirsiniz

 

[esdrym]

açıklama

Merhaba

Öncelikle cevabınız için teşekkür ederim. Fakat ben açıklamayı ayrı bir hücrenin içinde istiyorum. Yani açıklama sütununa yazmasını. Yardımlarınız için teşekkürler...

 

[1Al2Ver]

Merhaba,

If IsNumeric(Cells(i, "a")) = True Then ......

Kullanabilirsiniz

Sayın Necdet Yeşertener, merhaba,

Teşekkür ederim, saygılarımla.

 

[Necdet]

Merhaba

Öncelikle cevabınız için teşekkür ederim. Fakat ben açıklamayı ayrı bir hücrenin içinde istiyorum. Yani açıklama sütununa yazmasını. Yardımlarınız için teşekkürler...

Açıklama sütunu yerine C sütununa yazdırmak istiyorum deseydiniz olay daha çabuk anlaşılırdı, bazen insan dalıp gidiyor işte.

Private Sub CommandButton1_Click()
Dim i As Long
Range("C2:C" & [B65536].End(3).Row).ClearContents
For i = 2 To [B65536].End(3).Row
    If Left(Cells(i, "B"), 2) + 0 = 21 Then
        Cells(i, "C") = "Satış Faturası"
    ElseIf Left(Cells(i, "B"), 2) + 0 = 55 Then
        Cells(i, "C") = "Virman"
    ElseIf Left(Cells(i, "B"), 2) + 0 = 60 Then
        Cells(i, "C") = "Çek"
    End If
        
Next i
End Sub

 

[esdrym]

Haklısınız

Haklısınız. Herzaman insan düşündüğünü anlatamıyor. Ama açıklama eklemeyi de öğrenmiş oldum) Çok teşekkür ederim. bu kod hayatımı kolaylaştıracak. Çok sağolun... Tekrar çok teşekkürler...