D6 hücresinde "-" işareti varsa bölmesin.

[k0081]

merhaba arkadaşlar;
Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
Satır = Range("f65536").End(3).Row + 1
Cells(Satır, "f") = Satır - 4
Cells(Satır, "g") = [D4]
Cells(Satır, "h") = [D10]
Cells(Satır, "I") = [D6]
Cells(Satır, "j") = [D12]
Cells(Satır, "k") = [D3]

End Sub

buradaki D6 hücresinde bazen, "-" işareti oluyor. bu durumda bölme yaptığımda ta tabloda #deger! ifadesi çıkıyor.

yapmak istediğim D6 hücresinde sayı varsa 1000 e bölsün. "-" işareti varsa bölme işlemini yapmasın..

yardımcı arkadaşa şimdiden teşekkürler...

 

[İhsan Tank]

merhaba arkadaşlar;
Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
Satır = Range("f65536").End(3).Row + 1
Cells(Satır, "f") = Satır - 4
Cells(Satır, "g") = [D4]
Cells(Satır, "h") = [D10]
Cells(Satır, "I") = [D6]
Cells(Satır, "j") = [D12]
Cells(Satır, "k") = [D3]

End Sub

buradaki D6 hücresinde bazen, "-" işareti oluyor. bu durumda bölme yaptığımda ta tabloda #deger! ifadesi çıkıyor.

yapmak istediğim D6 hücresinde sayı varsa 1000 e bölsün. "-" işareti varsa bölme işlemini yapmasın..

yardımcı arkadaşa şimdiden teşekkürler...

Merhaba
Bu tarz sorularınıza mümkün olduğunca örnek dosya eklerseniz daha iyi sonuçlar alabilirsiniz.
Kodu bununla değiştirin

Option Explicit
Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
Satır = Range("f65536").End(3).Row + 1
Cells(Satır, "f") = Satır - 4
Cells(Satır, "g") = [D4]
Cells(Satır, "h") = [D10]
If [D6] <> "-" Then
Cells(Satır, "I") = [D6] / 1000
End If
Cells(Satır, "j") = [D12]
Cells(Satır, "k") = [D3]
End Sub

 

[ynmcan]

merhaba arkadaşlar;
Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
Satır = Range("f65536").End(3).Row + 1
Cells(Satır, "f") = Satır - 4
Cells(Satır, "g") = [D4]
Cells(Satır, "h") = [D10]
Cells(Satır, "I") = [D6]
Cells(Satır, "j") = [D12]
Cells(Satır, "k") = [D3]

End Sub

buradaki D6 hücresinde bazen, "-" işareti oluyor. bu durumda bölme yaptığımda ta tabloda #deger! ifadesi çıkıyor.

yapmak istediğim D6 hücresinde sayı varsa 1000 e bölsün. "-" işareti varsa bölme işlemini yapmasın..

yardımcı arkadaşa şimdiden teşekkürler...

Syn. K0081 ;
Aşağıdaki kodu deneyin

Private Sub CommandButton1_Click()

Dim Satır As Long, Say As Byte

Satır = Range("f65536").End(3).Row + 1
Cells(Satır, "f") = Satır - 4
Cells(Satır, "g") = [D4]
Cells(Satır, "h") = [D10]

[COLOR="Red"]If [D6] = "-" Then
Cells(Satır, "I") = ""
Else
Cells(Satır, "I") = [D6] / 1000
End If[/COLOR]

Cells(Satır, "j") = [D12]
Cells(Satır, "k") = [D3]

End Sub

 

[k0081]

Teşekkürler hocam.. tamamdır..

 

[k0081]

Syn. K0081 ;
Aşağıdaki kodu deneyin

Private Sub CommandButton1_Click()

Dim Satır As Long, Say As Byte

Satır = Range("f65536").End(3).Row + 1
Cells(Satır, "f") = Satır - 4
Cells(Satır, "g") = [D4]
Cells(Satır, "h") = [D10]

[COLOR="Red"]If [D6] = "-" Then
Cells(Satır, "I") = ""
Else
Cells(Satır, "I") = [D6] / 1000
End If[/COLOR]

Cells(Satır, "j") = [D12]
Cells(Satır, "k") = [D3]

End Sub

Teşekkürler..

 

[İhsan Tank]

Teşekkürler hocam.. tamamdır..

Rica ederim
:keyif: