Yazılım, teknoloji ve arada hayata dair notlar.
Visual Basic Script ile bir makinaya ping atma ve gelen yanıta göre cihaza ulaşılabiliyor ise ona göre işlem yapabilmek için gerekli kodlar.. strHost="www.google.com" if Ping(strHost) = True then 'Wscript.Echo…
Komut Sonuç %ALLUSERSPROFILE% C:\Documents and Settings\All Users %APPDATA% C:\Documents and Settings\{username} \Application Data %COMPUTERNAME% {computername} %COMSPEC% C:\Windows\System32\cmd.exe %HOMEDRIVE% C: %HOMEPATH% \Documents and Settings\{username} %PATH% C:\Windows\System32\;C:\Windows\; C:\Windows\System32\Wbem %PATHEXT% .COM; .EXE; .BAT;…
Sub BosSec() Range("G:G").SpecialCells _ (xlCellTypeBlanks).Select End Sub Sub Bol() Range("F:F").UnMerge End Sub G stununda ki boş satırları seçer, F stununda ki birleşmiş hücreleri ayırır
Farklı excell dosyalarında bulunan sayfaları tek bir excell dosyasında, tek bir sayfada birleştiren program, Excell Sayfa birleştirme yada Excell dosya birleştirme de diyebiliriz. Ek özellikleri: ister sayfa sırası, ister sayfa…
Hücre içerisinde ayraç arasında ki değeri başka kolona aktaran Visual Basic kodu Sub Parcala() Dim kelime, ayrac As String Dim satir, sutun, Yapistir As Variant '******************* 'ayrac = "." 'sutun…
Sheets("Sheet1").Range("A:E").Cells.Replace " ", "", xlPart, xlByRows, True Sheet1 sayfasında ki A ve E stunlarında bulunan boşluk değerlerini yok eden replace kodu
Delphi 2010 ‘da odbc kullanmadan ole ile veri çekme komutu.. butonumuz’un içeriği procedure TAnaForm.cxButton1Click(Sender: TObject); var book:variant; excel,sheet:variant; satir, sutun,i,RehID,d:integer; DbS,ExcelS:string; function excelsonsatir(AColumn: Integer): Integer; const xlUp = 3; begin…
Destek olmak isterseniz , link değişimi yapmak isterseniz aşağıdaki kodları sitenize ekleyebilirsiniz, ekledikten sonra haber verirseniz biz de sizin sitelerinizi ekleyebiliriz .. <a href="http://gebze.org" title="gebze,firma rehberi,şirket,rehber,vitrin" target="_blank">Firma Rehberi</a> <a href="http://gebzemoto.com"…
FATBASLIK tablosundan saat aralıklarına göre rapor alan MSSQL kodum. select TARIH=(convert(VARCHAR(10),FB.TARIH,120)), '_09'=(select SUM(FATURA_TUTARI) from FATBASLIK FB1 where FB1.TARIH BETWEEN convert(VARCHAR(10),FB.TARIH,120)+' 08:59:00.000' AND convert(VARCHAR(10),FB.TARIH,120)+' 09:59:00.000' ), '_10'=(select SUM(FATURA_TUTARI) from FATBASLIK FB1…
