- Katılım
- 8 Mayıs 2022
- Mesajlar
- 18
- Excel Vers. ve Dili
- 2016 MSO (16.0.4266.1001) - Türkçe, 32 Bit
Merhaba,
Ben Excel'de "IlkHali" isimli sayfanın C sütunlarının ilk onunda "Sabit1 Sabit2 : Değişken1 Değişken4 Değişken2 Değişken3 Sabit4 Değişken5 Sabit5 Değişken6 Sabit6 Sabit7 Sabit8 Sabit9 Sabit10 Değişken11 Değişken12" şeklinde veri olduğunu varsayarak aşağıda belirttiğim makroyu kullandığımda G sütunundaki ilk on satırın verisi "Değişken1 Değişken4 Değişken2 Değişken3 Değişken6" olması gerekirken bunun yerine "#AD?" şeklinde gelmektedir. Bu veriye de çift tıklayıp Enter tuşuna baştığımda "Değişken1 Değişken4 Değişken2 Değişken3 Değişken6" verisini getirmektedir. Bunun çözümünü bulamadım, bu konuda yardımcı olursanız çok sevinirim.
İyi günler dilerim.
Ben Excel'de "IlkHali" isimli sayfanın C sütunlarının ilk onunda "Sabit1 Sabit2 : Değişken1 Değişken4 Değişken2 Değişken3 Sabit4 Değişken5 Sabit5 Değişken6 Sabit6 Sabit7 Sabit8 Sabit9 Sabit10 Değişken11 Değişken12" şeklinde veri olduğunu varsayarak aşağıda belirttiğim makroyu kullandığımda G sütunundaki ilk on satırın verisi "Değişken1 Değişken4 Değişken2 Değişken3 Değişken6" olması gerekirken bunun yerine "#AD?" şeklinde gelmektedir. Bu veriye de çift tıklayıp Enter tuşuna baştığımda "Değişken1 Değişken4 Değişken2 Değişken3 Değişken6" verisini getirmektedir. Bunun çözümünü bulamadım, bu konuda yardımcı olursanız çok sevinirim.
İyi günler dilerim.
Kod:
Sub FormulEkle()
Dim IlkHaliSayfasi As Worksheet
Dim Satir As Long
Dim Formul As String
' "IlkHali" sayfasını tanımlayın
Set IlkHaliSayfasi = ThisWorkbook.Sheets("IlkHali")
' C sütunundaki veri bulunan son satırı bulun
Satir = IlkHaliSayfasi.Cells(IlkHaliSayfasi.Rows.Count, "C").End(xlUp).Row
' Formülü oluşturun ve satır sayısını kullanarak G sütununa yazın
For Satir = 1 To Satir
Formul = "=YAZIM.DÜZENİ(KIRP(SOLDAN(KIRP(PARÇAAL(C" & Satir & ",MBUL("":"",C" & Satir & ")+1,MBUL(""Sabit6"",C" & Satir & ")-MBUL("":"",C" & Satir & ")-1)),MBUL(""Sabit4"",KIRP(PARÇAAL(C" & Satir & ",MBUL("":"",C" & Satir & ")+1,MBUL(""Sabit6"",C" & Satir & ")-MBUL("":"",C" & Satir & ")-1)))-1) & "" "" &SAĞDAN(KIRP(PARÇAAL(C" & Satir & ",MBUL("":"",C" & Satir & ")+1,MBUL(""Sabit6"",C" & Satir & ")-MBUL("":"",C" & Satir & ")-1)),UZUNLUK(KIRP(PARÇAAL(C" & Satir & ",MBUL("":"",C" & Satir & ")+1,MBUL(""Sabit6"",C" & Satir & ")-MBUL("":"",C" & Satir & ")-1)))-MBUL(""Sabit5"",KIRP(PARÇAAL(C" & Satir & ",MBUL("":"",C" & Satir & ")+1,MBUL(""Sabit6"",C" & Satir & ")-MBUL("":"",C" & Satir & ")-1)))-UZUNLUK(""Sabit5""))))"
' Formülü G sütununa yazın
IlkHaliSayfasi.Cells(Satir, "G").Formula = Formul
Next Satir
End Sub