DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER($A1-(SÜTUN()-2)<1;"";$A1-(SÜTUN()-2))
'kodları yazan: İdris Serdar
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = ".") As String
Dim sonuc As String, c As Range
Application.Volatile
On Error GoTo Hata
For Each c In ALAN
If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
Exit Function
Hata:
BİRLEŞTİRA = "#Error#"
End Function
=BİRLEŞTİRA(B1:K1)
Sub YanYanaYaz()
Columns("B:B").NumberFormat = "@"
Columns("B:B").ClearContents
For i = 1 To Range("A1048576").End(3).Row
For j = 1 To Range("A" & i)
Range("B" & i) = Range("B" & i) & "." & j
Next
Next
End Sub
=METİNBİRLEŞTİR(".";;;SIRALI(A1))&"."
Option Explicit
Function K_SEQUENCE(Rng As Range, Optional Seperator As String = ",") As String
Application.Volatile True
If Rng.Value = "" Then
K_SEQUENCE = ""
Else
K_SEQUENCE = Join(Application.Transpose(Evaluate("Row(" & "1:" & Rng.Value & ")")), Seperator) & Seperator
End If
End Function