Soru Boşluğu nasıl doldurabilirim?

Katılım
30 Haziran 2022
Mesajlar
48
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
28-07-2023
Merhaba, aşağıdaki kodum var ve resimde de mevcut tablom gözüküyor. Amacım alanı seçtirdikten sonra dolu hücrelerde ki değerler değişmeden yanına istediğim değeri yazdırmak.
Soru işareti yerine ne yazmam lazım ???

Kod:
Range("C1").select
Range(selection, selection.End(x1down)).select
selection.value="ABD" & ????????
 

Ekli dosyalar

Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Kodları boş verin de, C sütununu seçtikten sonra seçili olan alana bir değer yazdırmak istiyorsunuz anladığım kadarıyla. O da "ABD" değeri. Sonra soru işaretleri koymuşsunuz, Nerden bilelim soru işaretlerine ne getirmek istediğiniz?

Anlamak zor.
 
Katılım
30 Haziran 2022
Mesajlar
48
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
28-07-2023
Necdet bey açıkladığım üzere c sütununa ABD yi ekleyeceğim. C sütunundaki değerler zaten mevcut değerler. Burada istediğim yalnızca seçili hücrelerdeki değerlerin tamamına birden içerisindeki değerler bozulmadan başlarına ABD yazmak. Örneğin. C2.value gibi düşünelim burada C2 ye ekleme yapıyor. Ben hepsine birden ekleme yapmak istiyorum.
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Merhaba, C sütunundaki dolu hücrelerin başına ABD yi ekleyen kodlar.
Kod:
Sub test()
son = Cells(Rows.Count, 3).End(3).Row
For i = 2 To son
    If Cells(i, 3) <> "" Then
        Cells(i, 3) = "ABD" & Cells(i, 3)
    End If
Next i
End Sub
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Bunu Hücre biçimlendirme ile yapabilirsiniz.

  • İstediğiniz bölgeyi seçin
  • Hücre Biçimlendir
  • Sayı
  • İsteğe Uyarlanmış
  • Tür :
    Kod:
    "ABd "0
  • Tamam
Bu şekilde yaparsanız görüntü istediğiniz gibi olmakla birlikte, hücreyi matematiksel işlemlerde de kullanabilirsiniz.
 
Katılım
30 Haziran 2022
Mesajlar
48
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
28-07-2023
Elinize sağlık. Bu arada aşağıdaki kodda yapmak istediğim şey satırda inşaat hizmeti yazıyorsa kod devreye girmesin şeklinde ama devreye girmiyor. Nerde hata yapıyorum?



Kod:
Sub hm()

 sonn = Worksheets("Montaj").Cells(Rows.Count, 2).End(3).Row

 For r = 3 To sonn

  If Worksheets("Montaj").Cells(r, 2).End(3).Rows.Value = "İNŞAAT HİZMETİ" Then

Worksheets("Montaj").Visible = True Worksheets("Montaj").Select son = Worksheets("Montaj").Cells(Rows.Count, 4).End(3).Row

 For i = 3 To son

 If Cells(i, 4) <> "" Then

 Cells(i, 4) = "HM. " & Cells(i, 4)

  End If

   Next i

   Else

    End If

    Next r

    Worksheets("Montaj").Visible = False

     End Sub
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Kodlar üzerinden gitmek zor, sonuç olarak insanız, hata yaparız ve zaman alır.
Örnek dosya ekleyin ve ne yapılmasını istiyorsanız örnekle açıklayın.
Çözüme daha hızlı ulaşırsınız.
 
Katılım
30 Haziran 2022
Mesajlar
48
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
28-07-2023
@Necdet bey, @AdemCan bey ellerinize sağlık hocam. Teşekkür ederim.
 
Üst