Deneyiniz; Fonkisyonu =MaskeIsim(G4) şeklinde kullanabilirsiniz Function MaskeIsim(ByVal tamIsim As String) As String Dim parcalar() As String Dim i As Integer Dim sonuc As String Dim kelime As String ' Boşsa boş dön If Len(Trim(tamIsim)) = 0 Then MaskeIsim = "" Exit Function End If ' Fazl...

Deneyiniz; Önce Hayır seçeneği ile kaydediniz işinize yarayan txt dosyası ise o şekilde devam edersiniz. Sub TxtDosyaOlustur_Secimli() Dim ws As Worksheet Dim i As Long Dim txtLines As String Dim dosyaYolu As String Dim secim As VbMsgBoxResult Set ws = ThisWorkbook.Sheets(1) ' Veriyi toplama (B2:B50...

Deneyiniz; Private Sub TextBox6_Change() Dim sf As Worksheet Set sf = Sheets("Sayfa1") ListBox1.Clear If Trim(TextBox6.Value) = "" Then Exit Sub ' TextBox boşsa çık Dim i As Long For i = 1 To sf.Cells(sf.Rows.Count, "A").End(xlUp).Row If LCase(sf.Range("A" &am...

Koşullu biçimlendirme ile deneyiniz

Deneyiniz; Sheets("Kayıt").Range("A5:X65000").ClearContents Dim lrow As Long Dim startRow As Long Dim rs As Object Dim cn As Object Dim c As Range Dim nSQL As String Set s1 = Sheets("Kayıt") lrow = 5 ' İlk yazılacak satır For Each c In s1.Range("Y5:Y" & s1...

Biraz uzun bir formül oldu; =EĞER(V2=1; EĞER(W2<0,5;"0 ≤ 40"; EĞER(W2<1;"40 ≤ 80"; EĞER(W2<1,5;"80S ≤ 160S"; EĞER(W2<2;"160S ≤ XXS+"; "200S ≤ XXS+")))); EĞER(V2=2; EĞER(W2<1;"0 ≤ 40"; EĞER(W2<1,5;"40 ≤ 80"; EĞER(W2<2,5;"80S ≤...

İstediğiniz olayın net çözümü henüz bulunmamaktadır. 3d Bin Packing (kutulama problemi) olarak bilinen bu sorunu çözmek için değişik algoritmalar üretilmiş ve üretilmeye devam edilmekte kesin sonuç şudur diyebileceğimiz bir çözüm henüz bulunmamış. Ürün sayısı ve boyutları değişken olan Kutu boyutlar...

ADO SQL ile veri kaydetmek için belirli hücrelerdeki verileri kullanırken, sayfalardaki isimlerin farklı olmasının sorun oluşturmadığı doğru. Ancak, ADO işlemlerini gerçekleştirmek için bazı ayarların ve doğru hücre referanslarının sağlanması gereklidir. DÖVİZ sayfasından aldığınız verileri VERİLER2...

Diğer dosyalarda sorunsuz çalışan ADO makrolarınızı bu dosyada denediğinizde eğer çalışıyorsa, VBA ayarlarıyla ilgili büyük bir problem yoktur. Ancak, birleşik hücrelerle çalışırken ADO hata verebilir. Birleşik hücreler ADO işlemlerini zorlaştırabilir. Bu yüzden, mümkünse birleşik hücreleri ayırarak...

Sub ADO_VeriKaydet() Dim cnn As Object Dim rst As Object Dim strSQL As String Dim FilePath As String Dim i As Integer Dim ws As Worksheet Dim LastRow As Long Dim veri As Variant ' Kapalı dosya yolu FilePath = "C:\Users\YourUsername\Desktop\KasaVeriYenilemeKayıtları.xlsx" ' DÖVİZ sayfasınd...

Sn. Arkadaş Hayırlı ve sağlıklı bir hafta diliyorum öncelikle. Ekte bulunan örnek çalışmam da görüleceği üzere bordro sayfasındaki tüm personele ait ayrı ayrı pdf olarak ücret pusulası oluşturmak istiyorum. Sitede örnekler var ama kendi çalışmama fazla bilgim olmadığı için uyarlayamadım. Bu konuda ...

Deneyiniz; Kodu bir modüle yapıştırınız. Sub EkleMakineKodlari() Dim ws As Worksheet Dim lastRowA As Long, lastRowD As Long Dim i As Long, j As Long Dim makinaKısa As String Dim found As Boolean ' Aktif çalışma sayfasını ayarla Set ws = ActiveSheet ' Son satırları bul lastRowA = ws.Cells(ws.Rows.Cou...

Hangi veri hangi veriden yüksek olunca hangi hücre renklenecek hangi veri hangi veriden düşükse hangi hücre ne renk olacak bunları daha açık yazarsanız yardımcı olunur. Yüklediğiniz dosya da sizin bildiğiniz bir kritere göre 0 ları kırmızı x leri yeşil yapmışsınız. Sonucun Sebebini açıklar mısınız.

Eğer F15 hücresindeki değer sürekli bir hata veriyorsa (örneğin, bir bağlantı hatası veya formül hatası), YenileVeKontrol sürekli olarak tekrar çağrılır. Bu durumda, hata sayacı yoksa sonsuz bir döngü oluşur. Application.OnTime ifadesi, zamanlayıcının sürekli ayarlanması nedeniyle kodun çalışmasını ...