RUMUS EXCEL

 '=LEFT(D3;SEARCH(" ";D3))*E3

RUMUS JAM DIGITAL

=============================

Sub test()

Const QRT As Integer = 4, Year As Integer = 12

Cells(1, 1) = 12 / QRT

Cells(1, 2) = 12 / Year

End Sub

Sub test2()

Dim rng As Range

Dim lr As Long

lr = Cells(Row.Count, 1).End(xlUp).Row

     Set rng = Range(Cells(1, 1), Cells(lr, 1))

         rng.Font.ColorIndex = 4

     End Sub

Sub Clock()

  running = Not (running)

  Do While running = True

    DoEvents

    Range("A1") = Now

    Loop

End Sub

CODING INSERT FOTO

===========================

Sub InsertFotoDiCellAktif()

Dim strFile As String

Dim rng As Range

Dim sh As Shape

Const cFile As String = "Image Files(*.jpg; *.jpeg; *.png),"

    strFile = Application.GetOpenFilename(FileFilter:=cFile, Title:=Es)

    If strFile = "False" Then

    Else

        Set rng = ActiveCell

        Set rng = rng.MergeArea

        With rng

            Set sh = ActiveSheet.Shapes.AddPicture(Filename:=strFile, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)

            sh.LockAspectRatio = msoFalse

        End With

        Set sh = Nothing

        Set rng = Nothing

    End If

End Sub

RUMUS EXCEL Klik disini