Syntax Error Hatası Alıyorum.

[ahmed_ummu]

Merhaba arkadaşlar.

If OptionButton1.Value = True Then
Sheets("üb").Range("bv6").Value & "+" & Sheets("ücp").Range("t26").Value
End If

Yukarıdaki kod ile Optionbutton1 seçili ise üb sayfasındaki bv6 hücresindeki değeri, ücp sayfasındaki t26 değerinin önüne artı + koyarak,
Optionbutton2 seçili ise yine aynı şekilde değerin önüne eksi - koyarak yazmasını istiyorum.
Mesela Optionbutton1 seçili iken üb sayfasındaki bv6 hücresinin değeri 0,02 ise ücp sayfası t26 hücresine +0,02 yazdırmak istiyorum ama syntax error hatası veriyor.
Yardımcı olursanız sevinirim.

 

[programer]

Sayfa isimlerinde bazen Türkçe karakter kullanmak sorun yaratabilir. Sayfaları yeniden adlandırarak dener misiniz.

 

[ÖmerFaruk]

Sheets("üb").Range("bv6").Value & "+" & Sheets("ücp").Range("t26").Value

Bu satırda bir şeye atama yapmanız gerekmiyor mu?
Mesela aşağıdaki gibi
TextBox1=Sheets("üb").Range("bv6").Value & "+" & Sheets("ücp").Range("t26").Value

 

[halit3]

Böyle bir dene

If OptionButton1.Value = True Then
Sheets("ücp").Range("t26").Value = "+" & Sheets("üb").Range("bv6").Value
End If

 

[ahmed_ummu]

Sheets("üb").Range("bv6").Value & "+" & Sheets("ücp").Range("t26").Value

Bu satırda bir şeye atama yapmanız gerekmiyor mu?
Mesela aşağıdaki gibi
TextBox1=Sheets("üb").Range("bv6").Value & "+" & Sheets("ücp").Range("t26").Value

İlginiz için teşekkürler . üb sayfasının bv6 hücresine ücp sayfasındak t26 hücresinin değerini önüne + koyup yazdırmak istiyorum.

 

[ahmed_ummu]

Böyle bir dene

If OptionButton1.Value = True Then
Sheets("ücp").Range("t26").Value = "+" & Sheets("üb").Range("bv6").Value
End If

Böyle bir dene

If OptionButton1.Value = True Then
Sheets("ücp").Range("t26").Value = "+" & Sheets("üb").Range("bv6").Value
End If

Teşekkürler. Deneyeceğim, işyerinin bilgisayarından yazdığım için soruları geç cevap veriyorum. kusura bakmayın.

 

[ahmed_ummu]

Böyle bir dene

If OptionButton1.Value = True Then
Sheets("ücp").Range("t26").Value = "+" & Sheets("üb").Range("bv6").Value
End If

Günaydın Halit Bey.

Gönderdiğiniz örnekteki gibi yaptım. Aşağıdaki kod.


If Range("l26").Value > Range("p26").Value Then
OptionButton1.Value = False
OptionButton2.Value = True
Else
OptionButton2.Value = False
OptionButton1.Value = True
End If

If OptionButton1.Value = True Then
Range("BH56").Value = "'+" & Range("T26").Value
Else
Range("BH56").Value = "'-" & Range("T26").Value
End If

Ekran görüntülerinin linkini ekliyorum. +0,03 yazması gerekirken, +-2,90000000002001E-02 yazıyo.

İndir ARTIRMA

Dosyayı indir ARTIRMA

dosya.co

İndir EKSİLTME

Dosyayı indir EKSİLTME

dosya.co

 

[ahmed_ummu]

Konuyu ilk açtığımda ücp sayfasından üb sayfasına veri alıyordu. Şimdi aynı sayfa içinde.

 

[ahmed_ummu]

If OptionButton1.Value = True Then
Range("BH56").Value = "+" & Format(Range("T26").Value, "#,##")
Else
Range("BH56").Value = "-" & Format(Range("T26").Value, "#,##")
End If

Bu haliyle de Sadece + veya - yazıyo.

 

[ahmed_ummu]

Tamam arkadaşlar çözüldü.

Bişey daha soracağım ama yeni konu açmam gerekiyor mu bilmiyorum.

ComboBox1.RowSource = "ücp!L56:L" & Range("L56").Value + Range("ag52").Value

Yukarıdaki kod ile formda bulunan combo'ya ücp sayfasındaki L56 hücresinden başlayacak yine aynı sayfadaki ag52 hücresinin değeri kadar verileri alacak.
Mesela ag52 hücresinin değeri 3 ise
L56, L57, L58 hücrelerindeki değerleri alacak. Yukarıdaki kod ile sadece L56 yı alıyor.

 

[halit3]

Böyle bir dene

ComboBox1.RowSource = "ücp!L56:L" & 56 + Val(Range("ag52").Value)

diğer soru için

Range("BH56").Value = "'+" & Round(Range("T26").Value, 2) * 1

 

[ahmed_ummu]

Böyle bir dene

ComboBox1.RowSource = "ücp!L56:L" & 56 + Val(Range("ag52").Value)

diğer soru için

Range("BH56").Value = "'+" & Round(Range("T26").Value, 2) * 1

Halit Bey teşekkürler, gönderdiğiniz kodlarla her iki de çözüldü.