vba kod

  1. B

    textbox visible

    Arkadaşlar merhaba, aşağıdaki kod ile CommandButton1 ile oluşturduğum formu resetleyip,textbox1'in görünmez olmasını istiyorum ama formu resetliyor ama textbox1'i görünmez yapmıyor. Hatayı nerede yapıyorum? Yardımcı olursanız sevinirim. Teşekkürler... Private Sub CommandButton1_Click() Unload...
  2. S

    vba drag and drop kullanınca type mismatch hatası alıyorum

    Private Sub Worksheet_Change(ByVal Target As Range) If Target.column = 6 Then For Each cell In Target If Target.column = 6 And Target.Value <> Empty Then Target.Offset(0, -1) = Format(Mid(Target, 5, 4)) Target.Offset(0, -2) = Format(Mid(Target, 3, 1)) Target.Offset(0, -3) = Format(Left(Target...
  3. R

    Reynolds Sayısı Hesaplama

    Çapı 0,015 m, akışkan yoğunluğu 1000 kg m-3 , akışkan viskozitesi 0,0015 kg m-1 s-1 ve akış hızı 0 ile 5 m s-1 arasında 0,5 artarak değişen bir sistemde reynolds sayını hesaplayarak akış rejimiyle birlikte ekrana yazdıran bir program ve programa uygun bir akış diyagramı oluşturulucak. Reynolds...
  4. S

    Excel'in Başka Sheet'in yazan dataları önerme

    Merhaba Arkadaşlar, Şöyle bir sorum var ; 2 sayfalı bir excel dosyam var. Sheet2'de banka isimleri yazıyor. Şunu yapmak istiyorum. Sheet1'de A1 hücresine Akbank yazmak istediğimde sheet2'de yazan bankalara baksın Ak... yazdığım anda Akbank'ı bana önersin. Bunu sheet2'ye bakarak yapsın ve...
  5. D

    VBA İle En Kısa Mesafenin Tespit Edilerek Sıralanması

    Merhaba, Ekte paylaşılan excel dosyasında 10 şehrin birbirlerine olan uzaklıkları verilmiştir. Rassal olarak belirlenen bir şehrin diğer şehirlere olan uzaklıkları incelenerek rotanın en kısa mesafedeki şehre göre oluşturulması planlanacaktır. 10 şehrin tamamına da uğranmasını sağlayan rota...
  6. M

    KOD Yazım hatası yardım

    Herkese kolay gelsin aşağadaki kodda index , match ve product iç içe kullandım fakat product tan galiba match özelliği alınamıyor hatası veriyor syn yanlış düzeltmem için yardım edermisiniz. product ile birden fazla kriteri arıyorum . Sheets("S_list").Cells(i, 2).Value =...
Üst