Sorgu için arama sonuçları: dictionary
-
VBA ve SQL Kullanarak Acceste Nöbet Programı Yazmak
...klasör\DB.accdb;" conn.Open ' Set up recordset Set rs = CreateObject("ADODB.Recordset") ' Create dictionary to store unique records and their most recent shift dates Set dict = CreateObject("Scripting.Dictionary") ' Execute SQL query to get unique records...- Astalavista58
- Posta #2
- Forum: Makro-VBA Soruları
-
R
Tekrar Eden Fatura Numaralarını Tek Satırda Toplama
Çok teşekkür ederim. Oldu. Sağolun- renaksk
- Posta #3
- Forum: Makro-VBA Soruları
-
Tekrar Eden Fatura Numaralarını Tek Satırda Toplama
...x As Long Dim s As Object Dim ayr As String Set s1 = Worksheets("Sayfa1") Set s2 = Worksheets("Sayfa2") Set s = CreateObject("Scripting.Dictionary") ayr = "; " sn = s1.Cells(Rows.Count, "B").End(3).Row ReDim dz(1 To sn, 1 To 10) For a = 2 To sn If s.exists(s1.Cells(a, "B").Value) Then...- ÖmerBey
- Posta #2
- Forum: Makro-VBA Soruları
-
N
word de satır başındaki ilk 5 karakteri silme
...Dim Q As Integer Dim vArray As Variant Dim strNew As String Application.ScreenUpdating = False Set objDict = CreateObject("Scripting.Dictionary") Tmax = ActiveDocument.Tables(1).Rows.Count For I = 1 To Tmax strCell = ActiveDocument.Tables(1).Cell(I, 1).Range.Text strQ = Left(strCell...- necati
- Posta #14
- Forum: Windows-Word-PowerPoint....
-
Arvento Araç takip sistemine göre aracın günlük çalışma hesabı
...veri(i + 1, 2) End If Next i 'Sheets("Sayfa2").Range("J2").Resize(say2, 4).Value = veri With CreateObject("Scripting.Dictionary") For i = 1 To say gun = veri(i, 1) saat = veri(i, 2) hiz = veri(i, 3) If hiz > 0 Then...- veyselemre
- Posta #12
- Forum: Diğer Excel Soruları
-
Arvento Araç takip sistemine göre aracın günlük çalışma hesabı
...veri(i, 4) = veri(i + 1, 2) End If Next i 'Range("J2").Resize(say2, 4).Value = veri With CreateObject("Scripting.Dictionary") For i = 1 To say gun = veri(i, 1) saat = veri(i, 2) hiz = veri(i, 3) If hiz > 0 Then...- veyselemre
- Posta #10
- Forum: Diğer Excel Soruları
-
Soru İki Sayı Arası Koşullu Toplama
Sy. @dost ; Hocam Google E tablolarda nasıl kullanacağım bunu bu kod orada çalışmıyor. Q sütununa gelen km. şartına sadece Mazot olanlarının şartını getire bilir miyiz.- TUNCA ERSİN
- Posta #21
- Forum: Fonksiyon Soruları
-
D
Soru İki Sayı Arası Koşullu Toplama
...As Double, totalKm As Double Dim k Application.ScreenUpdating = False Set s1 = Sheets("Sayfa2") Set oDict = VBA.CreateObject("Scripting.Dictionary") myData = s1.Range("A2:P" & s1.Cells(s1.Rows.Count, "C").End(3).Row).Value For i = LBound(myData, 1) To UBound(myData, 1) If Not...- dost
- Posta #20
- Forum: Fonksiyon Soruları
-
Combobox'a Tarihin Sadece Yıl Bilgisini Almak
Teşekkürler sayın veyselemre- ahmed_ummu
- Posta #5
- Forum: Makro-VBA Soruları
-
Combobox'a Tarihin Sadece Yıl Bilgisini Almak
Dim huc ComboBox7.Clear Sheets("İNTERNET_TELEFON").Select With CreateObject("Scripting.Dictionary") For Each huc In Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value If IsDate(huc) Then .Item(Year(huc)) = Null Next huc ComboBox7.List = .keys...- veyselemre
- Posta #3
- Forum: Makro-VBA Soruları
-
E
Listedeki sıraya göre Sekmelere Otomatik isim verme
With Sheets satırında hata veriyor Veysel bey ne yapmam gerektıgı konusunda yardımcı olabılırsenız coksevınırım- Emidaf60
- Posta #3
- Forum: Makro-VBA Soruları
-
Listedeki sıraya göre Sekmelere Otomatik isim verme
Sub test() Dim r, sat, dic As Object, sName$ Set dic = CreateObject("Scripting.Dictionary") For Each r In Worksheets dic(r.Name) = Null Next r With Sheets("Yaklaşık Maliyet") For Each r In .Range("C10:C" & .Cells(Rows.Count, 3).End(3).Row).Value If...- veyselemre
- Posta #2
- Forum: Makro-VBA Soruları
-
B
Excel Yazdırma Seçeneği
...ky, s1 As Worksheet, son& Set s1 = Sheets("Anasayfa") son = s1.Cells(Rows.Count, 1).End(3).Row With CreateObject("Scripting.Dictionary") For Each ky In s1.Range("A2:A" & son).Value If ky <> "" And Not .Exists(ky) Then .Item(ky) = Null...- BaY_KaPTaN
- Posta #2
- Forum: Excel'e Yeni Başlayanlar
-
U
Sütundaki yılları benzersiz combobox'a alma
Sayın veyselemre İstediğim gibi olmuş, ilgi ve yardımınız için çok teşekkür ederim, saygılarımla.- Usyk
- Posta #5
- Forum: Makro-VBA Soruları
-
Sütundaki yılları benzersiz combobox'a alma
...Dim veri, r, i&, ii& veri = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value With CreateObject("Scripting.Dictionary") For Each r In veri .Item(Year(r)) = Null Next r veri = .keys For i = LBound(veri) To UBound(veri) - 1 For...- veyselemre
- Posta #3
- Forum: Makro-VBA Soruları
-
İki ayrı tabloyu tek tablo olarak birleştirme
...4).End(3).Row).Value End With ReDim liste(1 To UBound(myArr1) + UBound(myArr2), 1 To 5) With CreateObject("Scripting.Dictionary") For i = 1 To UBound(myArr1) If onc <> myArr1(i, 1) Then say = 1 Else say = say + 1...- veyselemre
- Posta #3
- Forum: Makro-VBA Soruları
-
D
İki ayrı tabloyu tek tablo olarak birleştirme
...As Variant, myData2 As Variant Dim iCounter, Say, iRow As Integer Set s1 = Sheets("Sheet2") Set oDict = VBA.CreateObject("Scripting.Dictionary") myData1 = s1.Range("A2:B" & s1.Cells(s1.Rows.Count, 1).End(3).Row).Value myData2 = s1.Range("D2:E" & s1.Cells(s1.Rows.Count...- dost
- Posta #2
- Forum: Makro-VBA Soruları
-
Soru Çizelgemdeki isimler ile sekmeler oluşturma ve tüm sekmelere buton yardımıyla verileri gönderme
...Next Application.DisplayAlerts = True End If Set S1 = Sheets("Ana Sayfa") Set Dizi = CreateObject("Scripting.Dictionary") On Error Resume Next S1.ShowAllData On Error GoTo 0 Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Veri =...- Sebahattinnn
- Posta #2
- Forum: Makro-VBA Soruları
-
Makroya ekleme yapma
...Sheets("Sql_Stok") veri = .Range("A2:D" & .Cells(Rows.Count, 1).End(3).Row).Value End With With CreateObject("Scripting.Dictionary") For i = 1 To UBound(veri) .Item(veri(i, 1)) = Array(veri(i, 3), veri(i, 4)) Next i With...- veyselemre
- Posta #5
- Forum: Makro-VBA Soruları
-
B
Enflasyon Muhasebesi Çalışması
Teşekkür ederim. Doğru çalışanlar var ancak mesela bu kodunkiler yanlış gelmiş, bir bakar mısınız.- besen
- Posta #9
- Forum: Fonksiyon Soruları