For Each Döngüsünü Kuramıyorum

[mesuttasar]

Private Sub CommandButton6_Click()
Sheets("veri").Select
Dim bos As Range
bos = TextBox6.Value
For Each bos In Range("B1:B100")
If TextBox6.Value = "" Then
MsgBox "Önce düzelteceğiniz firmayı bulmalısınız"
Else

ActiveCell.Value = TextBox6.Value
ActiveCell.Offset(0, 1).Value = TextBox7.Value
Next bos
End Sub

Arkadaşlar bu kodu çalıştıramıyorum neden acaba?
Yapmak istediğim şu textbox6 daki firmanın adını, "veri" sayfasında B1:B100 aralığında bulacak , textbox7 hücresindeki rakamı c sütununa yazacak.

 

[isfa5878]

merhaba...

For X = 1 To [A65536].End(3).Row
If Cells(X, 2) <> TextBox1.Value Then
MsgBox "yanl&#305;&#351;"
End If
If Cells(X, 2) = TextBox1.Value Then
Cells(X, 3) = TextBox2.Value
End If
Next
End Sub

 

[mesuttasar]

Say&#305;n isafa5878 ilgilendi&#287;iniz i&#231;in te&#351;ekk&#252;r ederim kodlar&#305; ekledim ancak s&#252;rekli "yanl&#305;&#351;" mesaj&#305; &#231;&#305;k&#305;p duruyor tamama bas&#305;yorum tekrar ayn&#305; uyar&#305; mesaj&#305; veriyor.

Ayr&#305;ca textbox3 e 777000 de&#287;erini girdi&#287;imde sayfaya 777,00 &#351;eklinde atama yap&#305;yor.

 

[isfa5878]

pardon yanl&#305;&#351;..
Private Sub CommandButton1_Click()
For X = 1 To [b65536].End(3).Row
If Cells(X, 2) = TextBox1.Value Then
Cells(X, 3) = TextBox2.Value
End If
Next
If TextBox1.Value = "" Then
MsgBox "yanl&#305;&#351;"
End If

End Sub

denyiniz..

 

[isfa5878]

Textbox5.value=""
Textbox6.value=""
End Sub

eklmeyi unutmay&#305;n...
kolay gelsin.

 

[mesuttasar]

Üstat çok sağol ancak sondan 3 rakamı almıyor.Mesela 777000 yazınca 777,00 olarak sayfaya kaydediyor.

Dosyayı ekte gönderiyorum açılış şifresi 1234 tür. Komutu "Firma Teklifi Düzelt" butonuna atıyorum.

 

[isfa5878]

Next i son a yazm&#305;&#351;&#305;m
d&#252;zelttim ......

 

[mesuttasar]

Msgbox "yanl&#305;&#351;" ifadesinden sonra Go to 10 yazd&#305;m.
End Sub komutunun &#252;st&#252;nede 10 yazd&#305;m sorun halloldu.

Ancak hala 777800 ifadesi listeye 777,80 olarak ge&#231;iyor.Bunun nedenini anlamad&#305;m.Bi bakabilirmisiniz?

 

[isfa5878]

TextBox4.Text = Format(TextBox4.Text, "#,##0.00 YTL")
&#351;eklin de deneyin..

c s&#252;tunu h&#252;cre bi&#231;imledir den bin ay&#305;rac&#305; kullan ve 2 basamakl&#305;

 

[mesuttasar]

abi olmad&#305; ya anlayamad&#305;m gitti denizleri ge&#231;tik derede bo&#287;uluyorum
bi t&#252;rl&#252; halledemiyorum teklif d&#252;zelt butonunu

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;&#305;daki kodu denermisiniz.

Private Sub CommandButton6_Click()
    Set BUL = [B:B].Find(TextBox6, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Cells(BUL.Row, 3) = Replace(TextBox7, ".", "")
    End If
    Set BUL = Nothing
End Sub

 

[isfa5878]

merhaba..
dosyay&#305; inceleyiniz...
"textbox7.text * 1" &#351;eklinde yap&#305;nca d&#252;zeldi...

 

[mesuttasar]

merhaba..
dosyayı inceleyiniz...
"textbox7.text * 1" şeklinde yapınca düzeldi...

Üstadım çok ama çok teşekkür ederim sağolun.Ellerinize sağlık.