sütun birleştirme

[igultekin2000]

iyi günler, çalışma dosyasında düzenleme yapacağım, sütün birleştirmede sorun yaşadım. C sütunundaki ismi boş / dolu durumuna göre Etek - 10,00 TL şeklinde D sütununda birleştirmek istiyorum. Teşekkürler

 

[askm]

Formül ile =EĞER(F2<>"";C2& " "& " - "&F2& " TL";C2& " - "&H2& " TL") şeklinde yazabilirsiniz.

 

[igultekin2000]

5-6 makro ile düzenleme y

Formül ile =EĞER(F2<>"";C2& " "& " - "&F2& " TL";C2& " - "&H2& " TL") şeklinde yazabilirsiniz.

sonuç , bazı işlemlere tabi tutacağım, makro olsaydı daha kolay olurdu, bunu da formül kopyalama ile makroya çevirebilirim. Teşekkürler.

 

[Ziynettin]

Deneyiniz.

Sub birlestir()
son = Range("C" & Rows.Count).End(3).Row
a = Range("C2:H" & son)
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
say = say + 1
    If a(i, 4) > 0 Then
        b(say, 1) = a(i, 1) & " - " [COLOR="Red"]  & Format(a(i, 4), "#,##0.00") & " TL"[/COLOR]
    ElseIf a(i, 4) = 0 Then
        b(say, 1) = a(i, 1) & " - " [COLOR="red"]& Format(a(i, 6), "#,##0.00") & " TL"[/COLOR]
    End If
Next i
If say > 0 Then [D2].Resize(say) = b
MsgBox "işlem tamam.", vbInformation
End Sub

 

[igultekin2000]

teşekkürler

Deneyiniz.

Sub birlestir()
son = Range("C" & Rows.Count).End(3).Row
a = Range("C2:H" & son)
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
say = say + 1
    If a(i, 4) > 0 Then
        b(say, 1) = a(i, 1) & " - " & a(i, 4)
    ElseIf a(i, 4) = 0 Then
        b(say, 1) = a(i, 1) & " - " & a(i, 6)
    End If
Next i
If say > 0 Then [D2].Resize(say) = b
MsgBox "işlem tamam.", vbInformation
End Sub

daha pratik çözüm olmuş, eğer mümkünse virgülden sonra iki sayı ve sonuna TL' de eklense tablo için görselliği daha iyi olacak. Teşekkürler.

 

[Ziynettin]

#4 nolu kodu tekrar deneyiniz.

 

[igultekin2000]

Sorunsuz çalışıyor

#4 nolu kodu tekrar deneyiniz.

çok teşekkürler, sorunsuz çalışıyor.