.... .... filePath = Application.ThisWorkbook.Path & "\Veriler.txt" buradan itibaren kodları böyle yapsan filePath = Application.ThisWorkbook.Path & "\Veriler.txt" Open filePath For Output As #1 Print #1, txtLines Close #1 cmd = "powershell -Command ""Get-C...

Kolay gelsin

Bu formül calısıyor. a1 e girilince b1 e sonuc yazar. Ancak hücre ayarlarından formatlardan saatli olanı seçmeniz lazım. Hücre yada sütunda

=TARİH(PARÇAAL(A1;5;4);PARÇAAL(A1;3;2);PARÇAAL(A1;1;2))+ZAMAN(PARÇAAL(A1;10;2);PARÇAAL(A1;12;2);0)

Kolay gelsin Mustafa Bey

Bu formül işe yarar ama başka formüllerde üretilebilir

=BÜYÜKHARF(SOLDAN(A1;1) & PARÇAAL(A1;BUL("TEST";YERİNEKOY(A1;" ";"TEST";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))+1;1))

Sayfa koruma ile mümkün. Sub Gizle() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) ws.Unprotect Password:="123456" ws.Columns("B").EntireColumn.Hidden = True ws.Columns("D").EntireColumn.Hidden = True ws.Protect Password:="123456", UserInterfaceOnly:=Tru...

Sizin kodda belki şunlar eklenirse calısır. Denemedim .... .... S0.[C:D] = Empty If IsObject(RootFold) Then Set myFolder = RootFold.ParseName("Dahili depolama\ALPER\" & S0.Cells(i, "A")).GetFolder j=1 ' j için 1 ekledım For Each xFile In RootFold.ParseName("Dahili depola...

Çokeğersay ile yapılabilir. Ben bir formül ekledim B3 için bakarsınız belki geliştirirsiniz

Kolay gelsin

Bu satırı herhangi bir kod içinde dosya yolunu getirmek için uygun yerde kullanabilirsiniz.

dPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Buradaki dpath hangi kullanıcı adında calısırsa o bilgiyle size sonuc getirir

Hangi windows kullanıcısı olursa olsun aşağıdaki kod ile desktop yolunu alırsın. Hangi bilgisayarı kullanırsan kullan desktop da ise dosyaların bu kod işe yarar Sub GetDesktopPath() dPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") MsgBox dPath & "\BAKKAL P...

Bu basit kod ile masaüstüne excel dosyası pdf kaydedilir. Bu kod sadece bir kişi için işlem yapar. Bunu zenginleştirmek için çözüm üretmeniz lazım. Buton eklenebilir. Hucre secılebılır hucre tıklantıkdan sonra ona göre kod calısabılır vs. Sub PDFKaydet() GetDesktop = CreateObject("WScript.Shell...

Direk formülle zor olabilir fonksiyon var. =Dinamik(P1) yazarsan aşağıdaki kod çalışır Function Dinamik(P1 As Range) As Double toplam = 0 sonSayfa = Day(P1.Value) For sayfaNo = 1 To sonSayfa toplam = toplam + Sheets(CStr(sayfaNo)).Range("C2").Value Next sayfaNo Dinamik = toplam End Function

Kolay gelsin

=EĞER(VE(A1="Plastik"; A3=160); 55;
EĞER(VE(A1="Plastik"; A3=200); 65;
EĞER(VE(A1="Metal"; A3=120); 35;
EĞER(VE(A1="Metal"; A3=160); 25;
EĞER(VE(A1="Metal"; A3=200); 15; "")))))