Skip to content

Instantly share code, notes, and snippets.

View sinancetinkaya's full-sized avatar

Sinan Çetinkaya sinancetinkaya

View GitHub Profile
Public Col As New Collection
Function Counter(CELL As Range, direction As String)
Dim cell_address As String
cell_address = CELL.Address
new_value = CELL.Value
If cHas(Col, cell_address) Then
arr = cGet(Col, cell_address)
old_value = arr(0)
@sinancetinkaya
sinancetinkaya / Privacy Policy for SCTorch.html
Created October 14, 2017 12:25
Privacy Policy for SCTorch
<html>
<body>
<h2>Privacy Policy</h2>
<p>[Sinan Cetinkaya] built the [SCTorch] app as a [open source|] app. This SERVICE is provided by [Sinan Cetinkaya] [at no cost] and is intended
for use as is.</p>
<p>This page is used to inform website visitors regarding [my] policies with the collection, use, and
disclosure of Personal Information if anyone decided to use [my] Service.</p>
<p>If you choose to use [my] Service, then you agree to the collection and use of information in
relation with this policy. The Personal Information that [I] collect are used for providing and
improving the Service. [I] will not use or share your information with anyone except as described
@sinancetinkaya
sinancetinkaya / makro01.vba
Last active December 16, 2015 12:38
Excel'de ki bir veriyi parçalara bölmek
Private Sub Workbook_SheetChange(ByVal SAYFA As Object, ByVal HUCRE As Range)
Application.EnableEvents = False
'Ayraç olarak boşluk kullandım siz başka birşey kullanabilirsiniz.
ayrac = " "
metin = HUCRE.Text
With HUCRE
ayracpos = InStr(1, metin, ayrac)
kolon = 0
@sinancetinkaya
sinancetinkaya / gist:3973600
Last active October 12, 2015 04:48
Vodafone Fatura Döküm
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn ; Recommended for catching common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
; A=Hat sahibinin adı, B=GSM numarası olacak şekilde hazırlanmış excel tablosu
HatListeDosya := "E:\Belgelerim\Excel\Çizelgeler\Şirket Hatları.xls"
; IniDosya dosyası aşağıdaki gibi hazırlanmış kullanıcı adı ve şifre kısımları yazılmış bir ini dosyası olmalıdır.
; [Vodafone]