Makroda hücre birleştirme

[OZCANLOK]

formda aradım fakat buna benzer bir örneğe rastlamadım

ekteki dosyada açılmaya çalıştım yadrdımcı olacaklara

şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda A3 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=E&#286;ER(VE(B3<>"";C3<>"";D3<>"";ESAYIYSA(E3));B3&C3&D3;"")

 

[OZCANLOK]

Sn Cost Control Tablo Çok BÜyÜk OlduĞu İÇİn YaklaŞik 2000 Satirdan OluŞuyor

Bunu Makro İle Yapmamiz MÜmkÜn MÜ

Ayrica VermİŞ OlduĞunuz Fonksİyon İÇİn TeŞekkÜrler

Mokro İle ÇÖzÜm Bulamaz İsem UygulayacaĞim

TeŞekkÜrler

 

[omerceri]

Sn COST_CONTROL'un formülünü ilk satıra yazıp, bu hücreyi kopyalayıp, formül çubuğunun en solunda hücre adresi yazan kutuya (formülün E sütununa yazıldığını farz ediyorum) "E1:E2000" yazıp enter tuşuna basın ve yapıştırın, formülü uyguladığınız sütunu tümden seçip kopyalayıp, yine aynı sütuna, Özel Yapıştırdan "değerler" seçeneğini uygulayın.

 

[OZCANLOK]

tam anlayamadım örnek dosya gönderirmisiniz.

teeşkkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayığ denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:E]) Is Nothing Then Exit Sub
    Satır = Target.Row
    If Cells(Sat&#305;r, 2) <> "" And _
    Cells(Sat&#305;r, 3) <> "" And _
    Cells(Sat&#305;r, 4) <> "" And _
    IsNumeric(Cells(Sat&#305;r, 5)) Then
    Cells(Sat&#305;r, 1) = Cells(Sat&#305;r, 2) & Cells(Sat&#305;r, 3) & Cells(Sat&#305;r, 4)
    Else
    Cells(Sat&#305;r, 1) = ""
    End If
End Sub

 

[OZCANLOK]

sn cost control yukarıdaki kodunu

sadece b:d kolanlarının herhangi birinde işlem yaptığımda

hiç bir kritere bakmadan nasıl düzenleyebiliriz.

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:D]) Is Nothing Then Exit Sub
    Cells(Target.Row, 1) = Cells(Target.Row, 2) & Cells(Target.Row, 3) & Cells(Target.Row, 4)
End Sub

 

[OZCANLOK]

teşekkürler sn cost control çok sağolun