merhaba
kendi tanımladığım fonksyonla düşeyara benzeri bir şey yapmak istiyorum
tek sütunluk bir aralıktaki hücreleri tarayacak, eğer 0 dan farklıysa belirtilen diğer aralığın(o da tek sütunluk) sutununda aynı numaralı satırındaki değeri sırayla belirttiğim yere yazıcak.
aralıgim1 de sayısal değerler var araligim2 nin birinci sütununda ise müşteri isimleri var
bi türlü olmuyor yardım ederseniz çok mutlu olurum gerçekten
Function musteri(araligim1 As Range, araligim2 As Range) As String
Application.Volatile
Dim i As Integer
sayac = 0
For i = 1 To araligim1.Rows.Count
If araligim1.Cells(i, 1).Value <> 0 Then
sayac = sayac + 1
musteri = araligim2.Cells(i, 1).Value
Cells(sayac, 23).Value = musteri
End If
Next i
kendi tanımladığım fonksyonla düşeyara benzeri bir şey yapmak istiyorum
tek sütunluk bir aralıktaki hücreleri tarayacak, eğer 0 dan farklıysa belirtilen diğer aralığın(o da tek sütunluk) sutununda aynı numaralı satırındaki değeri sırayla belirttiğim yere yazıcak.
aralıgim1 de sayısal değerler var araligim2 nin birinci sütununda ise müşteri isimleri var
bi türlü olmuyor yardım ederseniz çok mutlu olurum gerçekten
Function musteri(araligim1 As Range, araligim2 As Range) As String
Application.Volatile
Dim i As Integer
sayac = 0
For i = 1 To araligim1.Rows.Count
If araligim1.Cells(i, 1).Value <> 0 Then
sayac = sayac + 1
musteri = araligim2.Cells(i, 1).Value
Cells(sayac, 23).Value = musteri
End If
Next i
