Soru Boşluğu nasıl doldurabilirim?

[mkaraoglu25]

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 ???

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

 

[Necdet]

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.

 

[mkaraoglu25]

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]

Merhaba, C sütunundaki dolu hücrelerin başına ABD yi ekleyen kodlar.

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]

Bunu Hücre biçimlendirme ile yapabilirsiniz.

• İstediğiniz bölgeyi seçin
• Hücre Biçimlendir
• Sayı
• İsteğe Uyarlanmış
• Tür :

  "ABd "0

• Tamam

Bu şekilde yaparsanız görüntü istediğiniz gibi olmakla birlikte, hücreyi matematiksel işlemlerde de kullanabilirsiniz.

 

[mkaraoglu25]

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?

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]

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.

 

[mkaraoglu25]

@Necdet bey, @AdemCan bey ellerinize sağlık hocam. Teşekkür ederim.